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This course is designed to cover advanced 
BASIC commands and concepts for the 
Commodore 128, Plus/4 and C1 6 computers. 
This third book in the Programming Course 
consists of two parts: 

1. A self-study text of 11 units, each cover- 
ing commands not covered in the first 
two books that focus on the C64. 

2. One diskette, containing programs 
designed to run on all three computers, 
or specifically on the C128 or Plus/4 and 
C16. 
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INTRODUCTION 



This book reviews the advanced BASIC 
languages that go beyond the scope of 
Commodare 64 BASIC 2.0. In the first two 
books, you learned about programming 
with the commands available on the Com- 
modore 64. But updated, more advanced 
versions of the BASIC language that include 
the old BASIC commands plus additional 
new keywords are being used in the newer 
Commodore computers. Introduction to 
Advanced BASIC Commands and Concepts 
goes beyond the scope of Commodore 
BASIC 2.0 by presenting the keywords used 
in the newer Commodore computers. Many 
of the new commands in BASIC 3.5 (for the 
Plus/4 and C16)and BASIC 7.0 (for the C128) 
add versatility to your programs-saving 
you time and increasing what you can do 
with your computer. 

This volume will: 

• teach you the new, advanced BASIC 
commands 

• demonstrate the power of these com- 
mands on your computer 

• help you design programs which incor- 
porate these commands 

Some of the topics explored related to the 
new commands are: 

• structured programming 

• formatting output 

• the use of windows 



• screen editing 

• graphic design 

• sprites 

• sound and music 

• other advanced techniques 

There are also experiments in each chap- 
ter, designed to help you apply what you 
learned about the new commands and 
concepts to programs or exercises. These 
hands-on experiments will increase your 
understanding as you use the new informa- 
tion in actual programming situations and 
problem-solving. Of course, if you need a 
little help, the answers are in the appendix. 

Some discussions in the book may 
apply only to a certain version of BASIC or a 
certain computer. The section on Sprites, for 
example, discusses BASIC 7.0 commands 
available only on the C128. Other topics, 
such as music, are tailored to your specific 
Commodore computer. Most concepts and 
commands, however, are relevant to all 
three computers, the C128, the Plus/4 and 
the C16. A machine-specific topic or com- 
mand is designated by a stripe on the upper 
corner of the page. Look for this stripe to see 
if the concept being presented relates to a 
specific computer: a black stripe for BASIC 
7.0 and the C128; a gray stripe for BASIC 
3.5 and the C1 6 and Plus/4. If there's no 
stripe, the material is relevant for all three 
computers. 

For your convenience, this book in- 
cludes a separate disk containing quiz and 
demonstration programs and also many of 
the longer programs listed in the text. 
Because of the differences between differ- 
ent versions of BASIC, you'll find certain 
programs don't run on your machine. Cer- 
tain programs have two versions, one for 
the C128 and one for the Plus/4 and C16. 
The latter programs appear with a 74" 
tacked on the end of the program name. 
Programs without the extra" /4" run either 
on the C128 alone, or all three computers. 

Whatever computer you have, this 
book will help you understand some of the 
new commands and concepts of Commo- 
dore BASIC. 



advanced data input 



UNIT1: 

Structured 
Programming 

This unit introduces commands to help you 
improve the structure of your programs. These 
allow you to better organize your programs 
sequentially, keeping different subroutines in 
the order they are used in your program. Struc- 
tured programs are easier to follow (particularly 
when using flow charts) and mistakes are easier 
to track down. Commands reviewed in this unit 
that improve structure are DO/LOOP, the ELSE 
clause and BEGIN/BEND. 



1 



DELAYS 

Type in this short program, then RUN it 

to see what happens. Press the RUN/STOP 
key when you've seen enough. 

10 X=X+1 PRINT X 
20 PRINT"[ HOMF 1 1 SHIFT I and S" 
30 PRINT"[ HOMF ILsHIFtJ and Q" 
40 GOTO 10 

At the speed this program is being exe- 
cuted, it's hard to tell exactly what's going 
on. One of the uses for loops is to create a 
delay, to slow down the speed of execution 
of certain parts of a program. Usually, an 
"empty" FOR/NEXT loop is used to slow 
execution. This is a FOR/NEXT loop that 
does nothing but count a variable to slow 
down the execution of a program. You can 
see what this delay loop does by adding this 
line to that program: 

25 FOR N = 1 TO 100:NEXT N 

BASIC 7.0 contains a command designed 
specifically for the purpose of slowing pro- 
gram execution, the SLEEFcommand. In one 
simple statement, yau can create a delay 
just by instructing the computer to SLEEP 
followed by a value corresponding to the 
time in seconds for the delay. You saw what 
a difference the empty FOR/NEXT loop 
made. Using the SLEEFfcommand, you can 
create a comparable delay of one second 
by replacing line 25 with: 

25 SLEEP 1 

You can see how important delays can be 
by comparing the program with and without 
line 25. Without the delay, the heart barely 
flickers and the counter numbers fly by. 
Delays using the FOR/NEXT loop and the 
SLEEFcommand give you control over the 
speed of what happens on the screen. 
You'll notice delay loops turning up in a lot 
of programs in this section (and the rest of 
the book). 



EXPERIMENT 




LOAD the program COLORCHANGE* 
from your disk. This program features the 
COLOR command. COLOR is used to change 
the background, border, character or sec- 
ondary colors. COLOR is followed by two 
numbers, the first specifying what is to be 
changed (4 for border, for background, 5 
or 1 for character*), the second correspond- 
ing to the new color (1 for black, 2 for white, 
3 for red, etc., according to the color keys). 
The COLOR command for the Plus/4 and C16 
can use a third number to change the lumi- 
nance, or brightness, of the color. This 
number can be between (dark) and 7 
(light). The program first cycles through the 
16 different colors for the screen border, 
then the 16 colors of the background, and 
finishes by printing characters in all the 
available colors. The only thing wrong is 
that you'd never know it, because the pro- 
gram doesn't have any delays to slow things 
down. When you RUN the program, the 
color changes whiz right by. 

(a) Add an empty FOR/NEXT LOOP or a 
SLEEFStatement to slow down the 
changing border colors. 

(b) Add a second delay to slow down the 
changing background colors. 

(c) Add a third delay to slow down the 
changing character colors. 

Experiment 1.1 Completed 



*Note: Change line 110 to read: 110 
COLORI ,X,4 to RUN this program on a 
Plus/4 or C16. 
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DO/LOOP 

DO and LOOP statements can only be 
used in a program and must always be used 
in conjunction with one another. The state- 
ments following the DO statement are car- 
ried out; upon encountering the statement 
featuring LOOP, control is transferred back 
to the DO statement for the sequence to be 
run again. The Simplest form of DO/LOOP: 



START ^ ) 



^ START ^ ) 









/ PRINT / 
/ 'ONE / 
J MORE TIME '/ 







10 DO 

20 PRINT "ONE MORE TIME" 
30 LOOP 

This loop continues indefinitely (until you 
press RUN/STOP), and is not all that useful. 
But combined with an additional clause, 
UNTIL or WHILE, the DO/LOOP becomes a 
powerful and versatile programming tool. 
The UNTIL clause specifies a condition that 
must be met so that execution of a program 
can go beyond the loop. The steps within 
the loop are carried out over and over UNTIL 
the condition in the clause is met. DO UNTIL 
X— 10 is an example of one such condition. 
Change line 10 to include the UNTIL clause: 

10 DO UNTIL X=10:X=X+1 

The WHILE clause is quite similar, where the 
loop is repeated only WHILE that condition is 
true. 

10 DO WHILE X<10:X = X + 1 

Trace what happens in the following pro- 
gram with each loop, calculate the loop 
variable, and predict how many loops will 
be completed before the program satisfies 
the UNTIL condition. Then RUN the program 
to see if you were right. 




^INT / 

=T A: H < END ) 
:ND / 



r 

A = A+ 1 






A- 


A*2 







PRINT A 



10 DO UNTIL A>I00 
20 A=A+I 
30A=A*2 
40 PRINT A 
50 LOOP 

60 PRINT "A = ";A;"AT END" 

The WHILE statement works Similarly, 
executing the statements within the loop 
only while the condition is true. Which 
WHILE statement would give you the same 
result? 

10 DO WHILE A>I00 
10 DO WHILE A<I00 
10 DO WHILE AolOO 

Try each to see how the results relate to the 
UNTIL clause. 
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THE ELSE CLAUSE 

The IF/THEN statement was introduced in 
Introduction to Basic, Part 2 of this set. To 
expand on what you can do with this state- 
ment, advanced BASIC language contains a 
related clause, ELSE.When the condition in 
the IF statement is not met, rather than 
control passing to the next line in the pro- 
gram, the ELSEclause establishes an action 
to be carried out (as the THEN clause would 
be executed with a true IF statement). 

5 INPUT "AGE";X 
10 IF X> =80 THEN PRINT 

"OCTOGENARIAN" 
20 IF X<80 THEN PRINT 

"YOUNGSTER" 



The ELSEclause can direct execution to 
another part of the program (to a subroutine 
or another line), assign a value to a varia- 
ble, etc. In a line featuring an IF/THEN 
statement, the ELSEclause is preceded by a 
colon (:), as in 

10 IF X> =80 THEN PRINT 

"OCTOGENARIAN" :ELSE PRINT 
"YOUNGSTER" 

The ELSEclause used properly can both 
Simplify and tighten the organization of a 
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program. The following program utilizes 
ELSEclauses in a boxing simulation that 
scores point totals for rounds for two 
fighters. Here are the details: 

• There are two boxers, a challenger and 
champion. There may be a handicap, 
giving one boxer an advantage over the 
other in scoring. 

• The scoring for the fight is based on a 
ten-point total round scoring system. 
There are ten points total awarded to 
both fighters in each round, according to 
performance. If a fighter dominates a 
round, he gets more points (7 or 8) to his 
opponents lesser total (3 or 2). An even 
round is scored 5 points for each fighter. 

• A knockout can be scored one of two 
ways: when a fighter gets all the points 
in a round or when one boxer's cumula- 
tive total far exceeds that of the other 
combatant. 

Let's look at some of the individual 
tasks and what steps are specifically in- 
volved to set up the program. 

ESTABLISH FIGHTERS 

SETUP HANDICAP 

SETUP SCORING SYSTEM* 



EVALUATE SCORE 



DISPLAY OUTCOME 



IF/THEN:ELSE 
clauses 



This program features seven possible out- 
comes: 

1- The fight is a draw 

2- Champion wins on points 

3- Challenger wins on points 

4- Champion wins by knockout 

5- Challenger wins by knockout 

6~Champion wins by technical 
knockout (TKO) 

7-Challenger wins by TKO 








ROUND ti^ 








3QU\0 FO NTS GENERATED 
RA\SOVl_^ 
(INT [10- 
RND {0) + HANDICAP)] 



POINTS = TO - 
RANDOMLY GENERATED 
POINTS 




It could get pretty messy in specifying 
who won the fight and how, particularly 
with the "handicap" variable that gives one 
fighter the scoring advantage over the 
other. There are three possible responses 
for the handicap variable, each of which 
affects the scoring. 

An even fight (with no handicap) does 
not necessitate any scoring adjustment. A 
knockout is scored when one fighter wins a 
round by getting all the points, which is 
determined by the random number and 
won't happen too often. But if a fighter is 
handicapped -1, there is no possibil ity of a 
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knockout unless an adjustment is made, 
since even if he wins all 10 points, 1 point is 
automatically subtracted from his score. 
Also, the + 1 handicap boxer has an even 
greater chance of a knockout since one 
point is always added to his score. To even 
things out as far as knockouts without add- 
ing too many confusing statements, we can 
use the ELS Statement. This program, enti- 
tled "BOXING", can be found on your pro- 
gram disk. 

5 REM****SET VARIABLES FOR 
BOXERS NAMES, HANDICAP, 
SCORING AND ROUND 
10 INPUT"NAME OF CHAMPION";AI$ 
20 INPUT"NAME OF CHALLENGER"; 
Bl$ 

30 PRINT"HANDICAP (+ 1 FOR "Al$" 
ADVANTAGE, -1 FOR "Bl$", FOR 
EVEN)" 

40 INPUT HA 

50 PRINT"SCORING IS ON A 10- 

POINT SYSTEM" 
60 PRINT,AI$,BI$ 
70 FOR HH=I TO 15 
80 PRINT"ROUND ";HH 
88 REM******ROUND SCORING****** 
90 TS= INT(10*RND(0)) + HA 
100TP= 10-TS 

105 REM***JUDGE FOR KNOCKOUT*** 
110 IFTS-HA>= 10 OR TP + HA> = 10 

THEN 235 
120 IF TS>= 10 OR TP>= 10 THEN 235 
130 PRINT" "TS,TP 
135 REM********TOTAL SCORE******** 
140 F= F+ TS 
150 G=G+TP 
160 PRINT" CHAMPION 

CURRENTLY ";F-G 
1 65 REM******JUDGE FOR TKO****** 
170 IF F-G>20 OR G-F>20 THEN 225 
175 GETKEYA$: 
180 NEXT HH 

185 REM******FINAL SCORING****** 



190 PRINT "FINAL POINT TOTALS 

";AI$; F,BI$; G 
1 95 rem*********DECISION********* 

200 IF F=G THEN 

PRINT"DRAW":GOT0240 
210 IF F>G THEN PRINT'THE WINNER 

IS";AI$:ELSE PRINT'THE WINNER 

IS";BI$ 
220 GOT0240 

225 IF F>G THEN PRINT Al$" WINS 
ON A TKO":ELSE PRINT Bl$" 
WINS ON A TKO" 

230 GOTO 240 

235 IF TS>TPTHEN PRINT Al$" 
KNOCKS OUT "BI$:ELSE 
PRINTB1$" KNOCKS OUT "A1$ 

240 END 

Lines 110and 120 are checking for a possi- 
ble knockout. When the IFclause in either 
line is true, the program jumps to a later 
subroutine to evaluate for the knockout. 
Line 170 checks for a technical knockout, 
comparing the totals established in lines 140 
and 150. If neither outcome occurs, the fight 
lasts 15 rounds. After 15 rounds, the point 
totals are compared and a winner is de- 
clared. Lines 210, 225 and 235 use the ELSE 
clause to evaluate the fight and declare the 
winner. 



Glossary 

A1$-Champion's name 
B1$-Challenger's name 
HA-Handicap 
HH-Round number 
TS-Champion's score in a round 
TP-Challenger's score in a round 
F-Champion's cumulative total 
G-Challenger's cumulative total 
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Extending the IF/THEN:ELSE-BEGIN/BEND 

BEGIN/BEND allows you to extend 
THENand ELSEIauses. Often a single pro- 
gram line is not enough to do all you want 
to do in aTHENor ELSEIause. Without 
resorting to directing execution elsewhere, 
BEGIN/BENDgives you the ability to 
lengthen these clauses. When you add on 
these statements, you can expand the THEN 
or ELSE-typeclauses to include several pro- 
gram lines. BEGIN/BEND can be added to 
the THENclause to let you add an unlimited 
number of statements. The additional state- 
ments are carried out when the IFclause is 
true, until the BENDstatement is encoun- 
tered. BEGIN/BENDcan also be added to 
the ELSEIause for the same effect of ex- 
tending the statements performed when the 
IFstatement is false. Here's an example that 
counts pennies, featuring THEN BEGIN 
clauses in lines 40-50,60-70 and 110-140 
and ELSE3EGIN in lines 140-150. 

10 PRINT "I SHIFT] and [HOME]": 
PRINT" PENNY SAVER" 

15 PRINT ""PRINT "" 

20 PRINT "HOW MANY DAYS OF THE 
WEEK" 

30 INPUT " DO YOU PLAN TO 
SAVE";D 

40 IF0>7 THEN BEGINPRINT "THERE 

ARE ONLY 7 DAYS IN A WEEK" 
45 IF D = 8 THEN PRINT "DESPITE 

WHAT THE BEATLESSAY" 
50 PRINT "TRY AGAIN":GOTO 

20:BEND 
60 IF D<1 THEN BEGIN 
65 PRINT "YOU SHOULD PUT 

SOMETHING AWAY FOR A RAINY 

DAY" 

70 GOTO 50:BEND 

80 PRINT "HOW MANY PENNIES" 

90 INPUT" DO YOU PLAN TO 

SAVE";M 
100 PRINT "" 

110 IF M>0 THEN BEGIN: M1 = (M*D) 
120 M2=M1*52 

130 PRINT "down cursor four times 
YOUR YEARLY SAVINGS SHOULD 
BE"; M2;"PENNIES" 



140 BEND: ELSEBEGIN: PRINT"AT 

THIS RATEYOU WON'T SAVEAINtf 

PENNIES" 
150 PRINT "AND A PENNY SAVED IS 

A PENNY EARNED":BEND 
160 INPUT "down cursor four times 

DO YOU WANT TO STARTAGAIN 

(Y/N)";A$ 

170 IF A$ = "Y" THEN GOT010:ELSE 
END 

You can see in lines 11 0-1 50, for example, 
how much more BEGIN/BEND lets you add 
to IF/THEN ELS Estate ments. The BEGIN/ 
BENDstatements can make certain subrou- 
tines unnecessary and make the organiza- 
tion more straight-forwcrd, as well as 
increase what you can do in aTHENor ELSE 
clause. 

Returning to the BOXING program, we 
can use BEGIN/BENDto extend the IF/ 
THEN/ELSEclauses that are used to declare 
the winner to make a more elaborate ring 
result. The following three sections use 
BEGINand BENDin both THENand ELSE 
clauses to give the ring announcer a little 
more to say. 

210 IF F>G THEN BEGIN 

212 PRINT "AFTER 15 ROUNDS, ON A 

JUDGES DECISION" 
214 PRINT'THE WINNER AND STILL 

CHAMPION-";A1$:BEND 
216 ELSEBEGIN:PRINT"AFTER 15 

ROUNDS, ON A JUDGES 

DECISION" 
218 PRINT'THE WINNER AND NEW 

CHAMPION-";BI$:BEND 

225 IF F>G THEN BEGIN 
228 PRINT "ON A TECHNICAL 
KNOCKOUT IN ROUND ";HH 

230 PRINT'THE WINNER AND STILL 
CHAMPION-";A 1$:BEND 

232 ELSEBEGIN:PRINT"ON A 
TECHNICAL KNOCKOUT IN 
ROUND ";HH 

234 PRINT'THE WINNER AND NEW 
CHAMPION-";B1$:BEND 

235 IF TS>TPTHEN BEGIN 

236 PRINT'THE WINNER BY A 
KNOCKOUT IN ROUND ";HH 
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EXPERIMENT 

1-2 




237 PRINT "STILL CHAMPION- 
";AI$:BEND 

238 ELSE BEGIN:PRINT"THE WINNER 
BY A KNOCKOUT IN ROUND 
";HH 

239 PRINT "THE NEW CHAMPION- 
";BI$:BEND 



LOAD the program QUIZI from disk. 
RUN it and answer the questions about 
delays and DO/LOOP. 

Experiment 1.2 Completed * 
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EXPERIMENT 

1-3 



C1 28 ONLY 



LOAD and RUN the CALORIE COUNTER 
program. LIST the program to see how the 
BEGIN/BEND commands are used to extend 
the IF/THEN statements. Follow the same 
spacing in the rest of the program and add 
another option, BREAD SPREADS, with the 
following data: 

BUTTER 1 TBSP. 100 

JAM 1 TBSP. 55 

MARGARINE 1 TBSP. 100 

PEANUT BUTTER 1 TBSP_ 95 

Use BEGIN/BEND to fit the new lines in the 
same IF/THEN clause. Finish the entry as the 
other food selections are finished, by telling 
the user to press RETURN to continue and go 
back to the main menu. Make sure you 
include the new option for BREAD SPREADS 
in the main menu. (Hint: The BREAD SPREAD 
option will be seventh on the main menu, 
so the IF/THEN clause would begin IFX— 7 
THEN BEGIN and present the data in PRINT 
statements. You'll have to make a change 
in line 200 so X< >8 instead of 7 to compen- 
sate for adding another option to the 
menu.) 

* Experiment 1 .3 Completed * 
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UNIT 2: 



Sometimes you'll want the computer's 
output to appear in a certain way on the screen. 
For instance, when dealing with money, you 
might want any arithmetic calculated to be 
displayed in dollars and cents. If numbers are 
being divided, you may wish to eliminate extra- 
neous decimal places past the first one or two. 
Your data might be better understood if dis- 
played in scientific notation. You may need to 
limit inputs to numbers containing fewer than 
five digits. You might want to have words or 
letters appear in a particular column format, 
centered on the screen. You can do all this and 
more with the PRINTUSING command. 

There is a related command, PUDEF,which 
lets you define characters being utilized in the 
PRINTUSING statement, for example, inserting a 
special symbol which is displayed in the output 
instead of a comma. PUDEF,when used in con- 
junction with PRINTUSING, gives you the capa- 
bility to select the characters used in the data 
format in addition to setting the parameters of 
the format itself, substituting different symbols 
for frequently-used characters such as commas, 
periods, dollar signs and blank spaces. 



Formatting 
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THE PRINT USING COMMAND 

PRINT USING is always followed by a 
statement specifying the format for the 
output, which is enclosed in quote marks. 
This statement is a series of hash marks (#), 
with or without additional punctuation 
which further defines the format. The hash 
marks set the number of spaces for letters or 
numbers; the format is followed by a semi- 
colon (;) and a variable(s) or data. A state- 
ment reading 

10 PRINT USING "■ 



would set up a data format which accepts 
numbers of up to eight places. The number 
contained in variable A would be displayed 
or printed in the specified format. The dis- 
play is right-justified format, meaning the 
last digit is printed in the eighth space, and 



any blank digits appear on the left. If the 
number displayed is only three digits, the 
first five digits are blank. If the number is 
nine digits, the computer returns a line of 
eight asterisks (as many as there are hash 
marks in the format statement) because the 
number does not conform to the format. 
This is called an OVERFLOW. Any decimal 
places in the number would be dropped, 
since the format does not specify decimal 
input. 

Type in line 10 (the PRINT USING state- 
ment shown above) and add line 5 (5 INPUT 
A), which lets you INPUT different values for 
the variable A, to be displayed in the format 
specified in line 10. This gives you a two- 
line program that lets you try different num- 
bers to see how they appear in the PRINT 
USING format in line 10. Here are some 
values to try: 



FORMAT: 
VALUE 



RESULT 



DIAGRAMS 



EXPLANATION 



3,59 



3.59 
-.1 

12.354 
1233 
1 3234.0 
123456789 



4 

-0 
12 
1233 
13234 



-rounds up 





1 














—rounds to zero, keeps minus sign 



1 2.354 











1 


2 



\ I 2 I — rounds down 



! 1 








2 


3. 




— right justifies 






\ 


3 


2 


3 


4,0 


1 1 




1 


3 


2 


3 


4 


drops decimal place 


2 3 


A 


5 


6 


7 


8 


9 




* * 


* 


* 




* 


+ 


* 


— overflow 
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What if you want decimals? Just change 
line 10 in your program to include a decimal 
point as part of your format, like this: 



10 PRINT USING " 



P; A 



FORMAT: Mm#M 
VALUE RESULT 



DIAGRAMS 



EXPLANATION 















3 . 


5 


9 




3.59 


3.59 










3 




5 


9 


— prints number with decimals 
















1 






-.1 


-0.10 








- 







1 





— adds leading zero, one decima 
































1 


2 


3 


5 


6 


12,356 


1236 






1 


2 


■ 


3 




— rounds up last place 








1 


2 


3 


3 








1233 


1233,00 




1 


2 


3 


3 







o 


— adds two decimal places 






1 


3 


2 


3 


4 . 









13234.0 


13234.00 


1 


3 


2 


3 


4 







o 


— adds one decimal place 




12 3 4 5 6 


7 


8 


9 








123456789 


******** 


* * * 


* 


* 


* 




;* 


1 * 1 — overflow 



Commas can be included in your displayed 
data if you include a comma in the format 
line, changing line 10 to 

10 PRINT USING "###,###" ;A 



Try the same values you've been using and 
see what comes out. 

With values of three places or less, the 
comma is not displayed, but with four digits 
or more, it appears in front of the third 
number from the right. 

There are other items you can include 
in the format. You can have a dollar sign ($) 
appear at the left-most column (as in 

or floating (appearing next to the 



left-most number displayed), in a format 
such as this: #$####.## The numbers dis- 
played below show the difference between 
the left-column dollar sign and the floating 
dollar format. 



Left-column dollar 
Floating dollar 



$ 1.25 
$1.25 



You can also include plus or minus signs in 
your data formats, either before or after the 
hash marks, like so: 

+#### 
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With a plus sign in the format, positive 
numbers include a " + " while negative 
numbers are displayed with a If the 
sign placed is after the format, it appears 
following the number when displayed. If 
the sign is placed before the format, the 
display features a sign in front of the num- 
ber. The same principle holds for negative 
numbers and a minus sign in the data for- 
mat. Negative numbers get a while 
positive numbers do not receive a sign. 
These are appropriate for uses like ledgers 
or checkbook balancing programs. 

You can also arrange your data in 
scientific notation format with PRINT USING. 
This involves setting a format line and fol- 
lowing it with four carets (up arrows). The 
number is printed in scientific notation 
according to your format line. For example, 
the number 1234 would be displayed ac- 
cording to the format specified: 

10 PRINT USING "SCIENTIFIC 
NOTATION #.### ";1234 

20 PRINT USING "SCIENTIFIC 
NOTATION #### ";1234 

30 PRINT USING "SCIENTIFIC 
NOTATION ##.#### ";1234 

Your format line can dictate a completely 
different scientific notation display for the 
same value. Notice that you can include 
regular printing inside the quote marks 
along with the format with no ill effects on 
the print using line. 



EXPERIMENT 




(a) Write a program featuring the PRINT 
USING command to perform a loan 
calculation that figures interest pay- 
ments on a loan of between $100 and 
$1000. The program should calculate 
Interest on the amount of the loan 

• Total money owed 

• Monthly payments 

The user should supply the loan 
amounts (A) and percentage interest rates 
(P) through INPUT statements, and the pro- 
gram should use these values to calculate 
interest on the amount of the loan (A*(P/ 
100) - I), total money owed (A + I) and 
monthly payments ((A + 1)112). 

These values should be placed in dollar 
and cents format, with floating dollar signs. 
The PRINT USING statement should reflect 
the limits on the amount of the loan ($100- 
$1000). 



C128 ONLY 



(b) LOAD and RUN the program BANK 

STATEMENT. After you RUN it, LI ST it and 
take special note of the print format 
statements and the use of BEGIN/BEND. 
Change the PRINT USING statements to 
change the size of acceptable transac- 
tions-into the millions and billions, or 
restrict it to less than $10 transactions. 

* Experiment 2.1 Completed * 
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PRINT USING WITH STRINGS 

You can use this command to format 
text strings as well. It is useful for accepting 
data of a specific length or establishing a 
column format. You can center text strings 
or right-margin justify words (have the last 
letter of each aligned in the same column). 
The command works with text strings and 
string variables in the same fashion as it 
does with numbers. The string is formatted 
or positioned according to the format speci- 
fied in the PRINT USING line. 

For example, with three strings-CAR, 
TRUCKand MOTORCYCLE-we can see 
some of the different ways the format af- 
fects text strings. The hash mark (#) is again 
used to set the number of spaces in the 
format line. Only two other symbols may be 
used in the format line for text strings, the 
equal sign (— jand the greater than sign 
(». These symbols also count as a space for 
a letter in the format line like the # sign, but 
they do a bit more. The text is typically left- 



###### 












A 


R 


I 






T 


R 


u 


c 


K 






O 


T 


o 


RjC 


m 






$ # # $ n 
























c 


A R 




I 


"t 


* 


u 


C 


K 


jj\A 





T 




R C 


Y 



n 


8 


8 




n 


n 




# # # n # > |# 


u 


8 


n 




) 












c 


A 




T J^U C K ] AA 


o 


T 


O R 


c 


Y 



justified, unless one of these two symbols 
appears in the format line. With the equal 
sign (= ),text is centered in the field, and 
with the greater than sign (», text strings 
are right-justified. 

If the string takes up more space than is 
available in the format, it is shortened (or 
truncated), with the overflow letters being 
dropped from the right side. For example: 

10 PRINT USING"#####";"CAR", 
"TRUCK", "MOTORCYCLE" 

appears as 

CAR TRUCKMOTOR 

Use of centering or right justification affects 
how strings are shortened or positioned. If 
you use a format line with seven hash 
marks (#######) and two other formats 
replacing a # with a > or = sign at the end 
of the format, you'll get different position- 
ing. The diagram shows why: 
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EXPERIMENT 

2'2 



(a) Set up a brief program that will allow 
you to input different PRINT USING 
formats in which to display data. Try to 
predict how the strings CAR, TRUCK and 
MOTORCYCLE will appear in each of the 
following formats, and then type in the 
statements to see if you were right. 

# 

############ = 

#####> 

###,### 

THE ########## 

(b) LOAD and RUN the program MAILING 
LISTor MAILING LIST/4. 

1- Add PRINT USING statements so 

each address is centered rather 
than left-justified. 

2- Use a PRINT USING statement to 

format the display of zip codes to 
be five numbers. 

* Experiment 2.2 Completed * 



CHANGING PRINT USING CHARACTERS 

PUDEFIets you redefine characters in 
the PRINT USING statement, such as blank 
spaces, commas, decimal points and dollar 
signs. With PUDEF,you can change these 
characters to appear on the screen or 
printed out as anything from the keyboard: 
letters, punctuation, graphic symbols, cursor 
movements, even color changes. 

The command PUDEFis always used in 
conjunction with the PRINT USING state- 
ment. PUDEFis followed by double quote 
marks enclosing up to four spaces. Each 
space corresponds to a character, as fol- 
lows: 

10 PUDEF" ,. $" 
1234 

To redefine any of these characters, include 
the command with the symbol you want to 
use in the place (space 1-4) corresponding 
to the character you want redefined. So if 
you wanted commas to appear as slashes, 
you would use this line: 

100 PUDEF" /" 

An example where PUDEFis most appropri- 
ate is a program converting American 
money into English pounds. The following 
short program converts American money 
into British currency by multiplying the 
American value by the exchange rate. The 
only thing missing is changing the dollar 
sign to a pound sign, and that's where 
PUDEFcomes in. 

10 INPUT "AMOUNT IN 

AMERICAN MONEY" ;A 
20 INPUT "EXCHANGE RATE 

(ONE DOLLAR EQUALS X 

POUNDS)";E 
30B=A*E 

40 PRINT USING'THAT AMOUNT IN 
BRITISH MONEY IS #$#####.##";B 



Only a single line is needed to make this 
program correct: 

35 PUDEF " ,.£" 

Note: You can only redefine the dollar sign 
($) with PUDEFwhen it is a floating dollar 
sign, that is, only when it appears with a 
hash mark in front of it. Otherwise, it will 
appear as a normal dollar sign. 
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EXPERIMENT 




LOAD and RUN the program QUIZ2, and 
answer the questions based on what you 
learned in this section. 

* Experiment 2.3 Completed * 
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UNIT 3: 

Finding 
Program 
Errors 



You may have had the experience of 
carefully typing a new program, and when you 
run it, the computer responds with an error 
message. You may have forgotten the dollar 
sign on a string variable, or perhaps you typed 
a GOTO statement with no reference line num- 
ber. These mistakes are common, but relatively 
easy to locate in short programs. In Unit 8 of 
Introduction to BASIC Part 1 you learned to 
trace short programs by hand to evaluate prob- 
lems. Complicated programs require more 
sophisticated problem-solving skills. Finding 
and fixing program errors is called debugging. 
This chapter describes some of the debugging 
techniques available to you: the HELPfunction, 
computer tracing with TRON and TROFF,and 
TRAP/RESUMEsubroutines. 
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HELP 

Your computer displays error messages 
when a command can't be executed. By 
now you are probably adept at pinpointing 
common problems like syntax errors. Yet 
even syntax errors can sometimes be diffi- 
cult to spot. When you get an error mes- 
sage, you can use the HELPfunction to 
locate incorrect program information. When 
you press the HELPkey or type HELPand 
press RETURN, your computer displays the 
program line which caused the error, with 
the incorrect section highlighted (flashing 
on the Plus/4 and C16). 

To see how the HELPcommand works, 
type and RUN this one-line program: 

10 PRINT 1;2:3;4 (Notice the: is a 
deliberate error.) 

The program will fail after displaying 1 and 
2. Press the HELPkey or type HELPand press 
RETURN. You will see: 

10 ?1 ;2:[3;4]The 3;4 will be 

highlighted, to show the 
error is somewhere near 
the 3. 

The HELPfacility isn't always so clear. Try 
typing 

1071+2+3**4 

RUN it, then use the HELPcommand. As you 
can see, the syntax error was so obvious 
that HELPwasn't very helpful. In many 
cases, however, the error will not be so 
obvious and HELPcan be used to point them 
out. 

Here's another example. It contains 
several errors, but in a complicated com- 
mand a missing quote or dollar sign can be 
hard to find. Look over the program and see 
if you notice the errors. Then type the pro- 
gram exactly as is: 

10 REM CONTAINS ERRORS 

20 A$ = "BET ":B$ = "YOU ";C$ = 

"CAN'T ";D$ "SPOT ":E$ "THE 

:F$= "ERRORS." 

30 ?A$;B$;C$;D$;E$;F$ 

Now use HEIP. You'll get a series of syntax 
and other errors. Correct them one at a 
time, running the program each time, then 
use the HELPfunction to locate the next 
error. Now you should have a better idea of 
how HELPcan be used. 



TRACING: WHEN HELP DOESN'T HELP 

Used as a first step in the debugging 
process, HELPis an excellent tool. If the HELP 
function doesn't supply enough information 
for you to debug a program, however, other 
debugging options are available. You can 
trace the program the way you did in UNIT 8 
of Introduction to BASIC Part I, and evaluate 
each line number to determine if the pro- 
gram does what you intended. Or, you can 
let the computer trace the program auto- 
matically. 

When you trace a program by hand, 
you look at each command and pretend to 
be the computer. After you simulate the 
command's execution, you switch on your 
human intelligence and ask "Is this what I 
expected?" If the answer is yes, continue 
the trace. If the answer is no, you have a 
better idea of how to correct the program. 

When the computer does the tracing 
for you, it is still necessary to evaluate the 
program step by step, but the computer 
calculates any results. This leaves you free 
to concentrate on the structure of a pro- 
gram, to ensure it meets its purpose. 

Your computer has a set of commands 
used to trace programs. Using TRON (TRace 
ON) and TROFF (TRace OFF) the computer 
will execute the program and display any 
output, but at the same time will display a 
list of line numbers in the order they are 

obeyed. 

Type the following program. 

10 INPUT "GIVE A NUMBER TO BE 

MANIPULATED";N 
20 PRINT USING "THE SQUARE ROOT 

IS####.##";SQR(N) 
30 INPUT 'WANT TO GIVE ANOTHER 

NUMBER";A$ 
40 IF A$ = "Y" THEN INPUT "NEW 

NUMBER";N:GOT020 
50 IF A$< > "N" THEN PRINT "NO 

FAIR, YOU HAVE TO ANSWER YES 
(Y) OR NO (N)":GOTO 30 
60 PRINT "OKAY, NO MORE MATH" 
70 END 

RUN the program a couple of times to famil- 
iarize yourself with it. 

Type TRON, then run the program 
again, line numbers appear on the screen 
in brackets to show the order in which com- 
mands were obeyed. Output was generated 
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by lines 10,20,30 then by 40 ,50 or 60 de- 
pending on the answer chosen. Notice 
some line numbers appear more than once. 
This is because the TRON function prints a 
line number each time a function is exe- 
cuted, even if more than one function is 
contained on a line. For example, in line 40, 
the computer executes thelF/THEN, and an 
INPUT statement before it follows the GOTO 
command. TRON makes the computer 
output [40] [40] [20] to show that this is the 
order in which commands were executed. 
Type TROFFto end tracing. 

For an example of tracing a more 
complex program, load the program 
TRACEEXfrom your program disk. Plus/4 
and C1 6 users should list line 10 before 
running the program. Change the color 
values to COLOR 4, 15,3: COLOR 0,4,3: 
COLOR 1,1. Also list line 1000 and change 
the SLEEFcommand to: FOR J - 1 to 500: 
NEXTJ. Run the program, then type TRON 
and run the program again. 

Now that you have seen how TRON 
and TROFFwork, we can discover how 
tracing on the computer can help locate 
errors. 

Sometimes, especially when your 
program contains loops, the screen be- 
comes filled with rows and rows of brack- 
eted line numbers. You will have to con- 
sider each line number, one-by-one, until 
you determine where the error is. 

If you are sure that most of a program 
works, trace only a small section of the 
program. This can be done by putting num- 



bered TRON and TROFFcommands into the 
program itself like this: 

10- 
20- 

59 TRON 
1 lO- 
120- 

189 TROFF 

190- 

200- 

When you have debugged the problem 
area, you can easily take the TRON and 
TROFFcommands out again. 

Tracing is particularly helpful when the 
error in the program is a logic error. Your 
program may run, and produce output, but 
you notice that the results are not what you 
expected. It is likely that you did not accu- 
rately translate your algorithm into com- 
puter code. Perhaps your program exits 
from a loop too soon, or jumps to a subrou- 
tine at an inappropriate time. Tracing can 
be used to methodically analyze the pro- 
gram's execution so logic errors come to 
light. 

Here is a program designed to report to 
the user the value of an average home in a 
selection of American cities over a period of 
years. The city names, dates, and values are 
contained in arrays. You could arrange the 
data like this: 




1950 


1 4000 


15000 


2fGUQ 


24GQQ 


23000 


25000 


I960 


17O00 


18000 


32000 


25000 


26000 


27000 


1970 


" 

27000 


30000 


40000 


30000 


41000 


43000 


1980 


45000 


50000 


56000 


60000 


65000 


67000 
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The program is saved on your disk as "REAL 
ESTATE". LOAD and LIST the program. 

10 DATA ATLANTA, DENVER, LOS 
ANGELES, NEW YORK, 
PHILADELPHIA,WASHINGTON 
20 DATA 1950,1960,1970,1980 
30 DATA 14000,15000,27000,24000, 

23000,25000 
40 DATA 17000,18000,32000,25000, 

26000,27000 
50 DATA 27000,30000,45000,39000, 

41000,43000 
60 DATA 45000,50000,56000,60000, 

65000 ,67000 
70 DIM C$(6),Y$(4),P$(6,4) 
80 FOR J = 1 TO 6: READ C$(J): 
NEXT J 

90 FOR K = 1 TO 4: READ Y$(K): 

NEXT K 
100 FOR J - 1 TO 6 
110 FOR K = 1 TO 4 
120 READ P$(K,J) 
130 NEXT J 
140 NEXT K 

150 PRINT "THIS PROGRAM OUTPUTS 

THE VALUE OF THE" 
160 PRINT "AVERAGE FAMILY HOME 

IN THE" 

170 PRINT "FOLLOWING AMERICAN 

CITIES:" 
180 PRINT 

190 PRINT "ATLANTA, DENVER, LOS 
ANGELES, NEW YORK," 

195 PRINT "PHILADELPHIA AND 
WASHINGTON" 

200 PRINT 

210 PRINT "IN THE YEARS:" 

220 PRINT "1950,1960,1970,1980" 

230 PRINT "WHAT CITY";P$ 

240 FOR J = 1 TO 6 

250 IF LEFT$(P$,I) = LEFT$(C$(J), 1) 

THEN GOTO 270 
260 NEXT J 

270 INPUT"WHAT YEAR";D$ 

280 FOR K = 1 TO 4 

290 IFD$=Y$(K) THEN GOTO 310 

300 NEXT K 



310 PRINT "THE VALUE OF THE 

AVERAGE HOME IN ";C$(J)" IN 
THE YEAR ";D$" WAS";P$(J,K) 

320 INPUT "ANOTHER VALUE (Y/ 

N)";A$ 

330 IF A$ = "N" THEN 350 

335 IF A$ = "Y" THEN GOTO 230 

340 GOTO 320 

350 PRINT "END OF HOME-COST 

COMPARISON" 
360 END 

RUN the program, and it returns a bad 
subscript error in 120. If you use the HELP 
function, the computer prints the entire line 
highlighted. Not very useful. So, let's use 
TRON and TROFF. Note: if you spotted the 
error, don't correct it just yet. Wait until 
you've seen how you might use TRON and 
TROFF to find the error. 

Type TRON and press RETURN and then 
RUN the program. Your screen is swamped 
by bracketed numbers, and you're probably 
thinking you were better off muddling 
through and finding the error on your own. 
But wait until you've given TRON its best 
shot. 

Maybe it would help to trace only a 
small section of the program. The error was 
in line 120, a line that reads data into a two- 
dimensional array. So type TROFF to end the 
trace, and add these lines to your program: 

95 TRON 
145 TROFF 

This is the section of the program involved 
with setting up the two-dimensional array. 

RUN the program now. While quite a 
few line numbers appear before an error 
stops the program's execution, the trace will 
be much more manageable than before. 
This is what appears on your screen: 

[1 00][1 1 0][1 20][1 30][1 1 0][1 20][1 30] 
[1 1 0][1 20][1 30][1 1 0][1 20][1 30][1 1 0] 
[120] 

The computer executes line 100, setting up a 
FOR/NEXT loop for the variable J. Then it 
sets up, in line 110, a FOR/NEXT loop for the 
variable K. It reads the first value of P (line 
120) from DATA line 40 and sets P(l, 1) to 
14000. 

The next line executed is line 130 
which reads NEXT J. This command loops 
back to line 110, and the value of P(2,1) is 
read from DATA line 40 as 15000. 
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Think about this for a minute. You see 
from the table that P(2, 1) should be the 
value of a home in Atlanta in 1960. But we 
have just read P(2, 1)from our DATA line as 
15000-the value of a home in Denver in 
1950. Somehow the DATA is reading down 
the table instead of across. This should be a 
clue to the problem. 

Look at the trace once again. Notice 
that the loop for K is executed four times, 
then J begins to increment. But this process 
is opposite from what should happen (ac- 
cording to the way we have arranged our 
data) and it becomes apparent that the 
FOR/NEXT loops in lines 100-140 are nested 
improperly. We must rearrange the loops so 
that the READ statements read the data lines 
in a manner that sets up a two-dimensional 
array similar to the table above. 

This is the way the loops must be 
nested: 

FOR K = 1 TO 4 

FOR J = 1 TO 6 Values of P(J,K) are read from the data with increasing values 
of J while K remains constant at 1. Then K is incremented and 
new values of P(J,K) are read with K — 2. This process 
continues until K reaches 4 , then the program drops through to 
line 150 

I NEXT J 
WxT K 

In addition, the READ statement must be: 
READ P$(J,K) in order to set up the data 
correctly. 

TraCing, as you have seen, has its 
limitations as a debugging tool. The impor- 
tant thing is that you be patient and work 
methodically. If you try to anticipate errors 
or assume a section of a program works, 
you'll run into trouble. There are times, 
however, when you could trace for hours 
and still not find a solution. Suppose you 
have misunderstood some of the rules of 
BASIC. Your program could be constructed 
logically as you see it, but if it violates BA- 
SIC structure it won't work. And tracing 
won't help, because you'll never see the 
logic error. 

Don't be discouraged if you have trou- 
ble locating program errors at first, even 
with the TRON and TROFF mechanism. 
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EXPERIMENT 

34 



Modify the program above so it stores 
the values of a coin or stamp collection at 
10-year intervals. The table of data might 
look like this: 



Add a section of code that calculates and 
outputs the total value of the collection in 
any given year. 

Use TRON and TROFFto trace the pro- 
gram if you run into trouble. 

* * 
Experiment 3.1 Completed 







Nickel 


Dime 


Quarter 


Half 


Dollar 


1940 


Penny=^ 
1 


5 


10 


25 


50 


100 


1950 


2 


6 


20 


27 


53 


10b 


1960 


1 


6 


30 


25 


60 


106 


1970 


3 


7 


35 


31 


65 


107 


1980 


2 


9 


32 


31 


66 


110 
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TRAP AND RESUME SUBROUTINES 

TRON and TROFFare useful commands 
when you know an error has occurred. You 
can trace the program step by step until you 
locate the problem. Sometimes, however, it 
is helpful to anticipate errors before they 
occur, so the program can be set up to deal 
with errors and perhaps continue to exe- 
cute. 

Your computer has a built-in capability 
to check for errors. It works by jumping to a 
subroutine when an error occurs. The sub- 
routine can handle the error in several 
ways. It might request more appropriate 
input, or print an error message. Then an- 
other statement tells the computer to con- 
tinue execution of the program. 

The command that sets up the error- 
checking subroutine is TRAP, and RESUME is 
the command used to switch control back to 
the main part of the program after the sub- 
routine has served its purpose. 

Here is a rough flow chart of a program 
with a TRAP subroutine: 



Set up 
TRAP 
routine 




© 



Execute 
TRAP 
routine 



RESUME^ ) 

The TRAP command should be on a line at 
the top of a program. The TRAP command 
references a line number to skip to, much 
like a GOTO statment. The reference line 
number is the first line of a subroutine that 
deals with the error. 



TRAP routines can access several built- 
in variables to keep track of errors that occur 
and the corresponding error messages. 

• ER stores the error number. Each type of 
error has a numerical label 

• ERR$is the error message corresponding 
to a particular ERvalue 

EL keeps track of the program line num- 
ber containing the error 

ERR$only has meaning in conjuntion with 
the corresponding ERvalue. To see what 
type of error occurred, place statements 
such as PRINT EL, ERR$(ER)within the TRAP 
subroutine. The computer will print the line 
number the error occurred in and the appro- 
priate error message. 

Here is a TRAP subroutine built into a 
program that records and displays errors as 
they occur. The RESUMEstatement tells the 
computer to begin execution again. Obvi- 
ously, if a serious error has occurred, contin- 
uation of the program may not be possible. 

10 TRAP 500 

20 PRINT "DEBUGGING PROGRAMS" 

30 FOR X = = 1 TO 4 STEP 2 

40 PRINT "HELP!" 

50 PRINT 

60 NEXT X 

70 PRINT "OH NO!" 

80 NEXT Y 

500 REM TRAP SUBROUTINE 
510 PRINT "ERROR IN LINE ";EL 
520 PRINT "ERROR TYPE: "; 

ERR$(ER) 
530 RESUME NEXT 
540 END 

RUN this program. Several errors occur, but 
the program can continue to execute. The 
error messages are listed, and you should 
be able to locate the syntax error in line 30, 
and the NEXT without FOR in line 80. But 
RUN the program again after you fix these 
errors, and the output is unusual indeed, 
mentioning an error in line 65535! The line 
number 65535 then generates an illegal 
quantity error in line 520. 

Why does the computer execute the 
TRAP subroutine if no error is found? Look at 
the program again. Even though line 500 
labels the subroutine, the program reaches 
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lines 500-540 in its normal execution. Add 
80 END to the program (you have probably 
already eliminated the old line 80) and the 
program should run smoothly. 

USING TRAP TO FILTER SPECIFIC ERRORS 

While TRAP routines such as this are 
helpful, TRAP is more commonly used to 
handle specific errors. For example, per- 
haps you would like to write a program that 
cannot be stopped by the RUN/STOP key. 
Note: RUN/STOP causes a break in the 
program, and is considered an error. 

Type NEW, then enter this program: 

10 TRAP 1000 

20 PRINT "AGAIN" 

30 GOTO 20 

1000 TRAP 1000:RESUME 

If you run this program, you will notice that 
it will print "AGAIN" ad infinitum, and 
RUN/STOP will not break the program. The 
only way to stop the program is to hit RUN/ 
STOPand RESTOREor reset the computer. 
Why does this happen? Let's examine the 
program. 

When an error (RUN/STOP is pressed) 
occurs, the TRAP routine is put into effect. 
While the TRAP routine is being executed, 
the TRAPfunction is disabled. That is, when 
program control is shifted to line 1000, the 
program cannot trap more errors. If a user 
hit RUN/STOP while the computer was 
executing the TRAP routine in line 1000, the 
program would break. 

In our program, however, the TRAP 
routine itself puts the TRAPfunction into 
effect, so the TRAPfunction is never dis- 
abled. Line 1000 not only keeps the TRAP 
routine in operation, but resumes execution 
of the program where it left off when the 
error occurred. 

Actually, in our simple example the 
RESUMEitself was sufficient to put the TRAP 
routine back into operation. Change line 
1000 to: 

1000 TRAP 1000:?"YOU CANT STOP 
ME":RESUME 

Now the TRAP 1000 clause is necessary. 
While the computer was printing "YOU 
CANT STOP ME", RUN/STOP would ordinar- 
ily be effective. But our program cycles the 
TRAP routine to itself, so the computer is 



continuously looking for errors. The user 
could never stop the program with RUN/ 
STOP. 

This should give you an idea of the 
many ways TRAP routines can be used. You 
can set up TRAP routines to find specific 
errors (error messages are listed in your 
computer's user manual) and react in a way 
appropriate for that error. TRAP is especially 
useful when programming graphics. This 
will be discussed further in the graphic 
section. 
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EXPERIMENT 

3-2 



C128 ONLY 



Load the program "DEBUG EXERCISE" 
from your program disk. It contains a num- 
ber of programs for you to debug. 

Correct the programs on paper, then 
compare your listings to the answer pro- 
vided in the exercise. 

Experiment 3.2 Completed * 
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UNIT 4: 

ScreeD 
Editing 

Creating useful and entertaining programs 
can be exciting, but getting the programs from 
paper into the computer's memory can involve a 
lot of effort. Despite the INST/DEL key, you will 
surely spend much of your time at the keyboard 
correcting errors. Even the most careful program- 
mer will need to change a variable or correct a 
syntax error, so it would help to know the short- 
cuts for getting around the screen. These short- 
cuts are called screen editing functions. This unit 
describes and illustrates screen editing functions, 
highlighting the use of screen windows. 

Screen windows allow you to define a 
portion of the screen as your workspace. In this 
area you can create a program or view program 
output, while the rest of the screen serves a 
different purpose. All the screen editing func- 
tions work within windows as well as on the full 
screen. Screen windows can be used for decora- 
tive purposes or to aid in debugging by allowing 
you to see a program and its output at the same 
time. 
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SCREEN EDITING FUNCTIONS 

Your computer has a series of functions 
designed to help change the text of your 
program or whatever else is on screen at 

Key Function on C128 
ESCC Cancel quote and insert mode 
ESCQ Erase to end of current line 
ESC P Erase to start of current line 
ESC @ Clear to end of screen 
ESC J Move to start of current line 
ESC K Move to end of current line 
ESC A Enable auto-insert mode 
ESCO 

ESCO Delete current line 
ESC I Insert line 

ESCY Set default tab stop (8 spaces) 

ESCZ Clear all tab stops 

ESC L Enable scrolling 

ESCM Disable scrolling 

ESCV Scroll up 

ESCW Scroll down 

ESCG Enable bell (by control G) 

ESCH Disable bell 

ESCE Set cursor to non-flashing mode 
ESC F Set cursor to flashing mode 
ESC B Set bottom of screen window 
ESCT Set top of screen window 
ESCX Swap 40/80 columns display 
ESC U* Change to underlined cursor 
ESCS* Change to block cursor 
ESC R* Set screen to reverse video 
ESC N* Return screen to non-reverse state 

*Only in 80-column mode 



any given moment. All of these functions 
are activitated by pressing and releasing th 
ESCape key, then pressing another key. The 
ESCape key functions are listed below. 



Function on Plus/4 and C16 

Cancel automatic insert mode 

Erase everything to end of current line 

Erase everything to cursor on current line 

Move to beginning of current line 
Move to end of current line 
Automatic insert mode 
Cancel quote, reverse and flash modes 
Delete current line 
Insert a line 



Turn on scrolling 
Turn off scrolling 
Scroll screen up 
Scroll screen down 



Set bottom right corner of screen window 
Set top left corner of screen window 
Cancel the escape function 

Reduce screen display 

Return to normal screen display size. 



Load the program EDITQUIZor EDITQUIZ/4 
from your program disk. Run the program so 
yOUare familiar with the way it works. STOP 
the program by pressing "N" at the final 
prompt, or use RUN/STOP RESTOREThen 
LISTthe first part of the program (lines 10- 
170). 

Suppose that in reviewing the program 
yOUdecide there should be a better intro- 
duction to the quiz: 

• Use CLR/HOME to home the cursor. Then 
move the cursor to the first character of 
line 20. 

• Press ESC(escape) and then K. Do not 
hold down ESCwhile you press the K. 
The cursor moves to the end of line 20. 

• Move the cursor back to the quote, then 
press ESCand A. This places the screen in 
automatic insert mode. 

• Add an explanatory sentence about the 
quiz, such as "The topic is science." The 
words you add do not eliminate charac- 
ters already in the line. 

• When your sentence is complete, press 
ESCC to turn off automatic insert mode. 

• Press RETURNto "set" the insert. 

• Move the cursor to line 170. We'll 
change the message in this line as well. 
Move the cursor to the space between 
BYEand THEN. Press ESCQ to erase 
everything from the cursor to the end of 
the line. Finish the message with: FOR 
NOW." Press RETURNto enter the new 
line. 
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Let's see if there are any ways this program 
can be streamlined. Look at lines 80 and 90. 
There should be a way to use IF/THEN/ELSE 
with BEGIN/BEND to handle this condition. 
We'll add some lines of space so we don't 
write on top of existing commands: 

Move the cursor to the beginning of line 
80 and press ESC I. A blank line appears 
above line 80. 

• Move the cursor to the first character in 
line 100 and press ESC I. 

Now the lines you want to work with are 
surrounded by a little space. You could, of 
course, work at the bottom on the program 
but it is sometimes easier to type new pro- 
gram lines in the position you want them to 
appear. 
Type: 

75 IF A$ = B$ THEN 

BEGIN:J = J + 1:GOSUB 1000: 
BEND:ELSE GOSUB 2000 

Delete lines 80 and 90 in the usual manner: 

• Move to the bottom of the program and 
type 80 followed by RETURN, 90 then 
RETURN. You may notice from the table 
of ESCape codes that ESC D deletes the 
current line, but this function does not 
erase the program line from memory. 

Now would be a good time to run the pro- 
gram again to be sure it still works. You can 
practice using ESCfunctions by making 
other changes. Perhaps you want to add 
more questions (how will this affect the rest 
of the program?) or change the way the 
computer reacts to right and wrong an- 
swers. There are many ways the program 
can be improved in appearance and struc- 
ture. See if you can discover how the other 
ESCfunctions listed work. Not all functions 
work in both 40 and 80 columns on the 
C128, and some functions work differently 
on the Plus/4 and C16. It won't take you 
long to appreciate how helpful and time 
saving the ESCfunctions are. 
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SCREEN WINDOWS 



EXPERIMENT 

44 



C1 28 ONLY 



Modify the right answer subroutine 
(starting at 1000) from the quiz program in 
the previous section to include a bell re- 
ward. 

(Hint: the CHR$ values of ESCG and 
ESCH can be used, in conjunction with 
Control-G, to create a bell-like sound.) 

* Experiment 4.1 Completed * 



Up to this point in the course we have 
made use of the entire screen as we pro- 
grammed. Sometimes it can be to your 
advantage to limit the part of the screen you 
can use. Perhaps you would like to look at 
the program and the output at the same 
time-to help in debugging. Or you have 
created a program that outputs sections of 
data you would like to compare, but they 
scroll off the screen before you can get a 
good look. Screen windows can handle 
these problems. 

For a demonstration of screen win- 
dows, (on the C128 only) LOAD and RUN the 
program WINDOW DEMO from your pro- 
gram disk. Notice that several windows can 
exist at once. Windows can overlap or occur 
one within the other, but only one window 
can be active at any time. 

If you create a window in direct mode, 
everything you type, (commands, listings of 
programs, etc.) as well as program output, 
from that point on appears within the win- 
dow's boundaries. The screen outside the 
window area is not affected. This is useful in 
comparing program listings with output. 
You run a program, then when it is finished 
you create a screen window in an area of 
screen not taken up by program output, and 
use the window to view the program listing. 

Using windows within programs makes 
it easier to organize your output into a struc- 
tured format. Windows can be used to 
increase the clarity of program output, add 
creativity ta quiz or game programs, or 
simply add to the aesthetic appeal of the 
program. 

CREATING SCREEN WINDOWS 

There are two ways to create windows 
on the Commodore 128, but only one way 
on the C16 and Plus/4. Both methods re- 
quire setting the coordinates of two oppo- 
site corners of the window. Once you de- 
scribe two opposing corners, the other 
dimensions of the window are also defined. 
Both methods are described below. 

You must first decide where you want 
the window to appear. Think of the screen 
as a grid of 25 horizontal rows and 40 verti- 
cal columns. You may find it helpful to use 
graph paper. Choose a location where a 
row and column intersect as the upper left 
corner of the window, and another intersec- 
tion as the lower right corner. 
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When the two corners are chosen, you can 
use the WINDOW command or ESCape 
commands to create the window. 

The ESCape commands are the only way a 
window can be created on the Plus/4 or 
C16. Move the cursor to the point chosen as 
the upper left corner. Press ESC (Escape key) 
and then T. Think of this as setting the "top" 
corner. 

Now move the cursor to the lower right 
corner. Press ESCand then B to set the "bot- 
tom" corner. The window is now set. 



List the WINDOW DEMO program (or 
any other program), which should still be 
your computer's memory. The output will 
scroll in the window only. Notice that whe 
the listing reaches the edge of the window 
it continues immediately on the next line. 
This effect is called "wrapping." 

You can work within the window to 
create programs, using the same screen 
editing functions available with the full 
screen. 
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THE WINDOW COMMAND 

The WINDOW command allows you to 
type the coordinates of two corners of the 
window. 

Here is an example of atypical WIN- 
DOW command: 

WINDOW10, 10,20,20, 1 

WINDOW has five parameters: 

First: top left row coordinate (in 
the range 1-25) 

Second: top left column coordinate 
(in the range 1-40) 

Third: bottom right row coordinate 
(in the range 1-25) 

Fourth: bottom right column 
coordinate 
(in the range 1-40) 

Fifth: clear option; = off, 
1 = on 

If the clear option is not chosen, any 
text that was in the area of the window will 
still be there when the window is created. 

Type the command noted above. A 
window is now set in direct mode. List the 
WINDOW DEMO program. It should behave 
exactly as it did when created with ESC 
commands. 

To cancel a window hit CLR/HOME 
twice. Hitting CLR/HOME only once moves 
the cursor to the upper left corner of the 
current window. 

The WINDOW command can be used 
within programs. NEW the memory, then 
load the program WINDOW DEMO 2 from 
your disk. RUN the program, which creates 
two windows and directs output to each 
window alternately. List the program, and 
you'll see that lines 30 to 130outl ine the two 
windows with' symbols, to demonstrate the 
windows' dimensions. Actual output is 
created by lines 180 to 220 in the first win- 
dow and by lines 240 to 280 in the second 
window. 

Notice that the windows must be de- 
fined each time they are used. Even though 
line 30 sets up a window, once line 80 sets 
up a second window the first window is no 
longer available. So line 170 recreates the 
window line 30 created, then line 230 re- 
creates the window originally created by 
line 80. 



Let's try to create a program that uses 
two windows. One example would be for a 
user to input the current price of gas, and 
the amount he would like to spend in one 
window, and have a simulated gas pump in 
another window show the amount and the 
current cost. 

First, a flow chart: 



DEFINE 

WINDOW 1 
AND 
OUTPUT 
RORDLF J . 



^INPUT GAS PRICE 
j HVPlT AMOUNT 



DEFINE 
WINDOW 2 




You see from the flow chart that the pricing 
window can be fairly straightforward. For 
appearance, let's outline the window in a 
band of reversed spaces. A subroutine can 
be used to print the border, because a win- 
dow such as this might come in handy later. 
Once the border is created, you should 
redefine the window so that the colored 
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border is excluded. Otherwise, the print 
statements for inside the window will need 
to include cursor movements to compensate 
for the border. 

Inside the window, input statements 
establish the variables P (price per gallon) 
and M (amount the user wants to spend), 
then the pricing window is no longer neces- 
sary. For appearances sake, let's allow the 
user to input the first letter of the type of gas 
he wants (Economy, Regular, Super) instead 
of the price per gallon. You should now be 
able to construct this code. LOAD the pro- 
gram GASPUMP from the disk, list lines 
10-100, and lines 1000-1060: 

line 10 defines border, screen and cursor 
color. You could choose any other colors 
you prefer. 

• line 20 defines the window, and line 30 
sends the computer to the subroutine to 
draw the border. 

• lines 1000-1060 (the subroutine) draw 
the border by creating a series of re- 
versed spaces. It is very important that 
the border falls exactly on the edge of 
the window, so when you redefine the 
window in line 50 you don't eliminate 
the border by mistake. 

Line 40 cancels the window, and line 50 
creates a new window, smaller by one 
space in each direction. 

• lines 60-90 set up the window to accept 
user input. Notice how reversed charac- 
ters are used to highlight the first letter of 
each type of gasoline. 

• li nes 91-95 use IF/THEN statements to 
evaluate the input in line 90 and deter- 
mine what type of gasoline is wanted. 

• Finally, line 100 asks the user to input the 
amount he wants to spend. 

Now you have all the input needed to use 
another window for output. The second 
window, to simulate a gas pump, should be 
more decorative. Use graphic characters to 
outline the window instead of reversed 
spaces. Lines 110 to 330 form the second 
window and calculate the program's output. 
Look at this section of the program a few 
lines at a time. 

You can change the color of the gas 
pump if you wish. Just insert different con- 
trol characters in the print statements. The 



window can be as decorative or as plain as 
you wish. 

The necessary calculations used to 
update the window continually as the gas is 
pumped are combined with the PRINT state- 
ments used to create the window. Note that 
you can't use a subroutine to draw the gas 
pump because the output would scroll 
incorrectly. 

You want the number of gallons 
pumped and the amount spent to increment 
on the screen as they do in a real gas pump; 
a FOR/NEXT loop should be right for this. 
You want the gas pump to update the cur- 
rent cost and gallons until the predeter- 
mined maximum cost is reached. 

VARIABLES: 

• Gallons (updated as the gas is 
"pumped"): stored in G 

• Amount spent so far (updated in con- 
junction with gallons): stored in A 

Let's think about the FOR/NEXT loop. You 
want the gallons and cost to be updated 
continually until the amount the user wants 
to spend (stored in M) has been reached. So 
the statement to declare the loop is: 

FORA=l TO INT(M*I00) 

At first glance, this command probably 
seems more complicated than is necessary. 
Why multiply the amount desired by 100? 
You'll only have to divide other variables 
100 to keep the results valid. The answer 
has to do with the floating point decimal 
within the computer. In rare cases, because 
of the way the computer calculates certain 
decimal values, it is necessary to use inte- 
ger values and sometimes manipulate the 
values slightly to obtain the result you want. 

Look at the rest of the program, and be 
sure you understand the structure. Now run 
the program. Notice that the gas pump 
looks as if only the numbers are changing, 
when actually the entire pump is being 
drawn each time through the loop. 

You may think the action is too slow to 
be realistic. That's because gas is being 
pumped in $0.01 increments. If you change 
the value used to multiply M, A and P in 
lines 170,250, and 310from 100to 20, the 
gas is updated in 5-cent increments and the 
program is much more realistic. 



To see another interesting use for win- 
dows, LOAD and RUN the program from 
your disk called HOROSCOPE. This program 
lets the user input a birthdate for an astro- 
logical reading. Notice how separate win- 
dows are used for elements such as sign of 
the zodiac, ruling planet, and personality. 
Note: The HOROSCOPE program does not 
run on the C16 due to memory limitations. 



EXPERIMENT 




(a) Create a program that displays a series 
of overlapping windows. Each window 
should be drawn by reversed spaces of 
a different color. 

(b) Create a slot machine that scrolls ran- 
dom-color blocks in three separate 
windows, and prints the payoff in a 
fourth window. 

(c) LOAD and RUN the program QUIZ4. 
Answer the questions about screen 
editing and windows. 

* Experiment 4.2 Completed * 
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UNIT 5: 

Advanced 

Data Input 
Using the 
Keyboard 

You are familiar with several methods of 
data input from the keyboard, including INPUT 
and GET. In this unit we will discuss other meth- 
ods of data input available in BASIC 3.5 and 
BASIC 7.0 that may help you create more sophis- 
ticated programs, or simplify the process of 
obtaining input. 
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GETKEY 

You learned to use the GET command 
in Introduction To BASIC Port I. To refresh 
your memory, GET is used to obtain one 
character of input. You will remember the 
GET command can accept the null string as a 
character, and therefore sequences such as 
the following were common. 

10 PRINT "PRESS ANY KEY" 
20 GET A$ 

30 IF A$="" THEN 10 

40 PRINT "THE KEY YOU PRESSED 

WAS ";A$ 

The IF/THEN statement sow to it that the 
computer executed lines 20 and 30 as a loop 
until the user hod time to press a key. 

Your computer has another command, 
called GETKEY, that automatically waits for 



Select random 
number for target 



the user to press a key. Try the following 
program. Notice there is no need to check 
for the null string. 

10 PRINT "PRESS ANY KEY" 
20 GETKEY A$ 

30 PRINT "THE KEY YOU PRESSED 
WAS";A$ 

The main advantage of GETKEY is in short- 
ening programs. GETKEY waits for the user 
to press a key, and assigns only that charac- 
ter to the string specified. For example, let's 
write a program that lets the user pick a 
number from 1 to 9, trying to match a num- 
ber randomly chosen by the computer. We 
wont the computer to respond accordingly if 
the number input by the user is higher or 
lower than the target number, and give a 
congratulatory message when the user 
chooses the target number. 

Here's the flow chart for such a pro- 
g/am: 









Input guess 






PRINT 
'CONGRATULATIONS' 1 
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GETKEY is the obvious command for user 
input. Use the RND function to choose a 
random number from 1 to 9. The rest of the 
code is simple enough; messages that tell 
the user to guess higher or lower can be 
contained in IF/THEN statements that com- 
pare the user's guess with the randomly 
chosen target. 

You may recognize one possible snag: 
GETKEY recognizes a string, and you wont to 
compare numerical values, luckily, the VAL 
function can be used to extract the numeri- 
cal value from a number inputted as a 
string. Refer to Introduction to BASIC Port 1 if 
you are unsure how the RND and VAL func- 
tions work. 

Here is the program: 
10 PRINT"[ SHIFT] and [HOME]" 
20 T= INT(9*RND(1)) + 1 
30 PRINT"PICK A NUMBER FROM 1 
TO 9!" 

40 GETKEY N$:N = VAL(N$) 

50 IF N>T THEN PRINT "GO LOWER 

THAN"N:GOTO 40 
60 IF N<T THEN PRINT "GO HIGHER 

THAN"N:GOTO 40 
70 PRINT"[ SHIFT1 and 'THOMEI" 

80 PRINT:PRINT"CONGRATULATIONS, 

YOU GOT IT!":REM N =T 
90 PRINT'TRY AGAIN (YIN)?" 
100 GETKEY A$ 

110 IF A$ = "Y" THEN GOTO 10 
120 PRINT 
130 END 

Notice that the user's answer to the question 
in line 90 is handled by GETKEY. You could 
use on INPUT statement, but GETKEY works 
just as well. This program can be modi- 
fied to include scoring, or more complex 
messages. 

GETKEY is useful for programs requiring 
user input of one stroke only. It is possible, 
however, to use a series of GETKEY state- 
ments to create a longer string. One occa- 
sion where the GETKEY string can be useful 
is in a program requiring a password. You 
are probably familiar with databases that 
require users to enter a password before 
they can view information. A simplified 
example of this type of programming is not 
hard to replicate. 



You can use a GETKEY statement to 
store a series of characters. 

GETKEY A$;B$;C$;D$ 

is a valid command. 

Once the various strings are stored, 
they can be concatenated into a complete 
password with an assignment statement: 

E$= A$ + B$ + C$ + 0$ 

Then E$ can be tested against a pre-as- 
signed password to determine if the user 
should be allowed access to the program. 

Another way to concatenate the strings 
is to start with the null string and use a loop 
to add one character at a time. Type NEW, 
then type: 

10 P$= "CODE" 
20 PRINT" " 

30 PRINT "ENTER THE CORRECT 

PASSWORD" 
400$="" 

50 FOR X = 1 TO 4 
60 GETKEY B$ 
700$=0$ + B$ 
80 NEXT X 

90 IF 0$< >P$ THEN PRINT 'WRONG 
CODE-ACCESS DENIED":GOTO 
110 

100 PRINT"YOU HAVE GAINED 

ACCESS" 
110 END 
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EXPERIMENT 

54 



The Password program is useful, but a 
clever user trying to gain access would 
quickly discover the password by listing the 
program. Modify the program so RUN/STOP 
is disabled and the user cannot list the pro- 
gram once it is running. 

* Experiment 5.1 Completed * 



DEFINING FUNCTION KEYS 

GETKEY is a useful command when a 
program requires input of one stroke at a 
time. You also sow that it is possible to 
concatenate strings obtained with GETKEY, 
but this is somewhat clumsy. Some pro- 
grams require very long strings to be typed 
repetitively, and for this your computer has 
definable function keys. 

You have used your computer's built-in 
function keys for LIST,DSAVE, DIRECTORY, 
etc. You have also probably purchased 
software that programmed the function keys 
to serve a number of purposes. In this sec- 
tion we will learn how to redefine function 
keys in direct and program mode, and 
discover some of the ways these redefined 
function keys can be used. 

Here is the list of function keys on the 
C128. You can use these function keys at 
any time they haven't been given another 
definition by software. 

Key Function on C128 

Fl GRAPHIC 

F2 DIOAD 

F3 DIRECTORY 

F4 SCNCIR 

F5 DSAVE 

F6 RUN 

F7 LIST 

F8 MONITOR (HEIP on the PIUS/4 
and C16) 

To use any of the functions, just press the 
key of the function you desire. The com- 
mand appears on the screen, and is exe- 
cuted. 

Suppose you are using a program that 
requires repetitive typing of long sequences 
of keystrokes. An example of this might be 
a telecommunications program that uses 
complex commands to operate the pro- 
gram, or communicate with another com- 
puter. You could program any common 
command onto a function key and save 
yourself considerable time and typing er- 
rors. 

The method for redefining a function is 
very simple: 

KEYnumber,"new definition" 



There are eight function keys you can 
redefine. Remember that if you redefine a 
function key you will have to reset the 
computer to get the original functions bock. 
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You may wont to include the character 
code for RETURN-CHR$(13)-as port of the 
new key definition, so you don't have to 
press RETURNafter you press the function 
key. There may be times, however, that you 
want to program only strings onto the keys, 
not actual functions, and in these cases you 
will not need the CHR$(13). 

Function keys can also be defined 
within programs, let's write a program that 
redefines function keys 1 through 4 for use 
in telecommunications. We'll program a 
telephone number, user number, password 
and a common command: 

10 KEY 1, "80055521 21 "+CHR$(1 3) 
20 KEY 2,"22345321" +CHR$(13) 
30 KEY3,"SECRET" + CHR$(13) 
40 KEY4,"GO CBM" + CHR$(13) 

You must place quotes around the defini- 
tion. 

RUN the program, and notice that the 
keys now have the new definitions. Each 
time you press a redefined function key the 
computer responds "syntax error," but this 
is only because you are using the function 
keys out of context. If you were running a 
terminal software program for a modem, 
the redefined function keys would be effec- 
tive and helpful. 

You have to reset the computer to 
restore the original values. Other programs 
you could write might redefine the function 
keys for use throughout the program, then 
restore the original functions when the 
program is done executing. This process 
avoids the need to reset the computer. 

Try this example. It shows how to re- 
store a function key to its original function. 

10 PRINT'THIS PROGRAM DEFINES 
THE Fl KEY" 



RUN the program. After it stops, press Fl 
again. It has been restored to its usual 
function. 

It is possible to program more than one 
function onto a single function key. In fact, 
the only limit to how many functions can be 
programmed onto a function key is the 
program line length-only 160 characters 
will be accepted as part of one line. For 
example, create a function key that will 
load a program from a directory, list it, then 
run the program. Type NEW, then type 

10 PRINT" " 

20 PRINT"PIEASE INSERT YOUR DISK" 
30 PRINT "HIT ANY KEY WHEN 

READY":GETKEY A$ 
40 DIRECTORY 

50 PRINT"PIEASE ENTERTHE NAME 
OF THE" 

60 INPUT'PROGRAM YOU WISH TO 
LOAD";N$ 

70 KEY1, "DIOAD" + CHR$(34) + N$ + 
CHR$(13) + "LIST" + CHR$(13) + 
"SLEEP7 + CHR$(13) + "RUN" + 
CHR$(13) 

80 PRINT"PRESSFI WHEN READY" 

Plus/4 and C1 6 users should delete the SLEEP 
7 and CHR$(13) that follows it in line 70 for 
this program to RUN. 

Notice in line 30 we have used GETKEY 
A$ more or less as "filler". The GETKEY 
statement delays the program until the user 
has put a disk in the drive and is ready to 
continue. CHR$(34) in line 70 stands for the 
quote symbol, needed in combination with 
the DIOAD command. 



20 PRINT'TO BE YOUR NAME" 

30 INPUT"YOUR NAME";N$ 

40 KEY 1,N$+CHR$(13) 

50 PRINT"WHEN I ASK A QUESTION, 

YOU JUST HIT THE Fl KEY" 
60 INPUT"WHO'S THE FAIREST";A$ 
70 INPUT"WHO'S THE SMARTEST" ;A$ 
80 INPUT"WHO'S THE GREATEST" ;A$ 
90 INPUT"WHO'S THE NARCISSIST";A$ 
100 KEY 1, "GRAPHIC" 
110 END 
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EXPERIMENT 



5*2 



IOAD and RUN the quiz on your disk for 
this unit, QUIZ5 (or QUIZ5/4). 

* Experiment 5.2 Completed * 



UNIT 6: 

Case 
Study 



TRIVIA PROGRAM 



So far in this book, you've seen different 
applications or examples demonstrating the 
new BASIC commands, such as COLOR, DO 
and IOOP, BEGIN and BEND, PRINT USING, 
SLEEP, KEY and GETKEY. Now it's time for a 
program that features all these commands 
together. 

Our case study program is a game of 
question-and-answer trivia. The main tasks in 
writing a trivia program are to: 

1- ask questions and give choices for 

answers 

2- accept answers 

3- evaluate answers 

4- keep track of correct answers 
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Different topics within the game make the 
quiz more elaborate. 

There are many ways to write a trivia 
program. A good program might feature a 
menu of different topics and multiple choice 
questions for each topic. A scorekeeper also 
odds to the attractiveness of the program. 

The trivia program for this case study is 
saved on your program disk under the nome 
TRIVIA for the C128, TRIVIA/4 for the Plus/4 
and TRIVIA/16 for the C16. The C1 6 version 
does not contain all five trivia categories 
due to memory limitations. The program is 
broken down into sections for which flow 
charts are provided. A complete listing 
appears at the end of the program. You can 
follow along by lOADing the program and 
NSTing the line numbers specified for each 
different routine. The algorithm for TRIVIA is 
straight-forward: 



Presents different 
quiz options; 
selects quiz topic 
Sets up screen for 
topic questions 

Asks questions, 
lists answers 

Evaluates answer 
given 

Adds up score and 
give % correct 




sports, comics and music. The design of 
menu is determined by the choices it off 
Our menu consists of the five quiz topics 
on EXIToption, so the user can quit the 
program easily. 

For the user to make a selection, we 
can use one of the new commands we'v 
reviewed: KEY, which can assign selection 
of each topic to a function key. The routi 
for setting up the main menu looks like t 



START ^ 



1 


f 


INITIALIZE 

ALL 
COUNTERS 







PRINT 

CUR 
HOME 



REDEFINE 
ALL THE 
FUNCTION KEYS 



INITIALIZE 
*C AND W 



The important subroutines that have to be 
worked out are: 

Selecting options from Main Menu 

Setting up individual topic quizzes 

Presenting quiz questions and answers 

Accepting and evaluating answers given 

Counting answers and calculating the 
percentage correct 



PRINT 
MENU 
^HEADING ^ 



PRINT 
MENU 

\ OPTIONS 1 



THE MAIN MENU 

The main menu offers the user a choice * c and Ware counters for correct and 
of quiz topics. Since trivia, by definition, wrong answers, 

covers all subjects, we'll restrict our choices 
to five popular topics: television, movies, 
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The specific routine.for th.e pressing the 
function key looks like thiS: 




It's easy to assign topic selection to a func- 
tion key with KEY. Use the GOTO statement 
and assign the line number of each particu- 
lar category's subroutine when redefining 
each key. In this fashion, function keys 1 
through 5 send the user to the subroutine for 
television, movies, sports, comics, and 
music, respectively. Function key 6 lets the 



user exit from the program into BASIC. 
Function keys 7 and 8 are defined to return 
the program to the main menu (GOTO 7). 

PROGRAM LINES: LIST-110 

Note: Remember after you have exited the 
TRIVIA program, redefined function keys 
retain the new definition until the computer 
is reset or turned off. 

CATEGORY ROUTINE 

Each time a function key is pressed and 
a category is selected, a new subroutine 
comes into ploy. The routine is essentially 
the some for all topics. We'll just look at the 
routine for television. 

Our task is to set up a specific category 
screen and prepare to ask ten questions. 
This entails designing the screen, directing 
the program to the data for the questions, 
and setting a counter to keep track of the 
number of questions. 

Notice that the COLOR command sets 
the screen background, foreground and 
border colors. New colors are set in this 
fashion in each category. The category 
subroutine flow chart below begins with the 
press of the appropriate function key. 
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( START ^ 

r , 

/ PHINT 7 
/ CLEAR / 
/ HOME / 



TELEVISION 
DATA BEGINS 
AT 5000. C AND 
W = © 



SET SCRL EN 
COLORS 



f PRINT 
CATEGORY 
HEADING 



1 



SET QUES- 
TION COUNTER 
TO 1 (Y = V) 



PROGRAM LINES: LIST 140-250 

line 200 sets variable IN to 5000, the line 
number where the DATA statements with 
questions and answer choices for this cate- 
gory are located. Variables C and W, set to 
in line 200, are used later to count an- 
swers: Cfor correct, W for wrong responses. 
Variable Y in line 230 holds a counter num- 
ber displayed on the screen as the question 
number, lines 240-250 set up a FOR/NEXT 
loop containing a GOSUB statement. This 
GOSUB transfers execution to another rou- 
tine at line 4000, the quiz routine. 

THE QUIZ ROUTINE 

The heart of the program is the ques- 
tion and answer routine. This routine must 
establish the procedure for asking the ques- 
tion, presenting the choices, accepting the 
answer and evaluating the answer chosen. 

The quiz routine can be broken down 
into two routines: read question and evalu- 
ate answer. The question routine follows 
this flow chart: 



T= 1 




FOR/NEXT 
LOOP 
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Q start" ^) 



V™ 







READ QUESTION \ 
NUMBER AND 
QUESTION 
AND ANSWER 




PRINT 
QUESTION 
COUNTER (Y) 
AND SPACING 



ADD 

QUES 

COUI^ 


1 TO 
TIGN 

JTER 






PR 

QUE£ 


NT 

moN 



B = B+ 1 



QUESTION # = 
QUESTION # 
+ 1 



/ PRINT 
QUESTION (B) i 



READ QUESTION 
NO., QUESTION (B), 
AND NUMBER 




B = 4 



QUESTION # 
= QUESTION # 
+ 1 



8= 1 
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PROGRAM LINES: LIST 3900-41 20 

Several commands from earl ier chapters 
are included in this subroutine, such as 
BEGIN/BEND, PRINT USING and EISE. The 
question and possible answers are READ 
from DATA statements later in the program, 
as directed by line 4000 (READQ,Q$,A). 
PRINT USING creates a format for the ques- 
tion number (variable Y) to be displayed, 
for questions 1 through 10 in each category. 
BEGIN/BEND and ELS&re used with on IF/ 
THEN douse that checks that the right ques- 
tion is being read (variable Q must match 
IN, which stands for line number of the 
correct question). If Q doesn't match IN, the 
EISE douse returns execution to line 4000 to 
start the question again. 

Since the actual data for questions, 
answer choices and correct answer are 
contained in DATA statements at the end of 
the program (from line 5000 on), the READ 
statements in lines 4000 and 4080 each read 
three variables: the number of the question 
(to make sure that the right question for the 
topic is being read), the string variable with 
either a question or answer choice in it (Q$), 
and a third number. This third number de- 
termines the correct answer for the ques- 
tion. The DATA statements for each question 
are grouped in fours, for example: 

5000 DAT A5ooo, WHAT ROIE DID 
RALPH WAITE PLAY ?, 1500 

5001 DATA5001 ,A) JOHN WALTON 
ON THE WALTONS, 1 

5002 DATA5002,B) GEORGE APPLE 
ON APPLE'S WAY,2 

5003 DATA5003,C) IARRY TAIT ON 
BEWITCHED, 3 

The first number each statement 
contains matches the line number. It is 
read into variable Q in line 4000 and 
compared to variable IN, which is a 
counter that makes sure the right 
question is being read. 



number is read into variable A as a 
direction to a subroutine, lines 4115- 
4117 use this variable to transfer 
execution to the subroutine for correct 
answer. This value is either 1500 if 
answer A is correct, 2000 if answer B is 
right, or 3000 if C is the correct choice. 
The DATA statements with answer 
choices also have a number following 
the string, but this number is a 
"dummy" variable read into variable 
according to line 4080. This keeps the 
variables that are READ even, since th~e 
READ statement in line 4000 is reading 
three variables. If the wrong line were 
read as a question, the program would 
crash. 

Once the correct question and answer 
choices appear on the screen, execution is 
transferred to one of three answer routines. 

THE ANSWER ROUTINE 

There are three answer subroutines, 
each identical except for the answer that is 
correct. The answer subroutine for the cor- 
rect answer A (line 1500) begins by using 
GETKEYto get a single letter for the answer 
The letter assigned to the GETKEYvariable 
should be A for a correct answer if the an- . 
swer is A. Any other key press is considere 
a wrong answer. The subroutines for corre 
answers B (line 2000) and C (line 3000) are 
identical except for the value for the GETKE. 
variable.. 



The first statement then has a text 
string that asks the question, read into 
Q$. The other three statements feature 
strings that give possible answers A, B 
and C. 

There is also a number after each 
string. For the statement which asks the 
question (5000 in this example), a 
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START 




B. OR C 



PRINT \ 
■ INCORRECT. \ 
V RO^ AN SWER\ 
\ IS A- 



C-C + 1 
.■CORRECT ANSWERS 
PLUS ONE) 



W-W+ 1 
(WRONG ANSWERS 
PLUS ONE) 



SLEEP 3 




SCORING ROUTINES 

After the tenth question for a category, 
the scoring routine "announces" the user's 
score, based on number of correct answers 
(variable C) and wrong answers (variable 
W), as well as the percentage correct. There 
is a separate scoring routine for each of the 
five categories, as well as a final total scor- 
ing routine. 




/ PPINTNO ] 
/ OFINCOR- / 
/ RECT / 
f ANSWERS / W 




PERCENTAGE 
= CORRECT AN 
SWER5 - 10 
MULTIPLIED 
BY 10 



PERCENTAGE 
= Q 



Q END 



PROGRAM LINES: LIST 1490-1620 

The variable W in line 1530 is a counter for 
wrong answers, while the variable C in line 
1570 is a counter for correct answers. BE- 
GIN/BEND statements make handling the 
situation much easier. The SLEEFstatement 
in line 1590 is a delay to give the user time 
to review the correct answer after it is re- 
vealed in line 1520 or 1560. The RETURNin 
line 1620 takes it back to the quiz question 
subroutine, which is then RETURNedto the 
original category routine, to either ask 
onother question (if less than ten have been 
asked) or to go to the routine for scoring 
total for that category. 



TC = C 
TW = W 



TV SUBTOTALS 
OF CORRECT ANSWERS 
W CORRECT ANSWERS 
= # OF CORRECT AND 
INCORRECT ANSWERS 




( END J 
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EXPERIMENT 

64 



PROGRAM LINES: LIST 376-435 

lines 390, 400 and 420 feature a PRINT 
USING statements to format the numbers 
displayed on the screen. The counter varia- 
bles C and W are totaled in line 415 in varia- 
ble TCfor use in the final score routine for 
answer counts for the television category. 
Other scoring routines features variables 
MC, SC, CC and UC for movies, sports, 
comics and music category totals, respec- 
tively, line 410 figures the percentage of 
correct answers by taking the total of correct 
answers for the category (C) and dividing it 
by the number of questions (10), and then 
multiplying it by 100 to get the percentage, 
line 425 creates a five-second delay so the 
user can fully digest the scoring figures, line 
435 sends the program bock to the main 
menu. 

The exit scoring routine (1370-1400) 
does the some thing as the category scoring 
routines, but uses the total score variables 
(TC,TW, MC, MW, etc.) to find total score 
and percentage. The last line of the subrou- 
tine, line 1400, ends the program. 

Since the function keys were redefined 
with the KEYcommand in this program, 
you'll have to turn your computer off and on 
again to return the function keys to their old 
definitions. 



Following the logic of the TRIVIA pro- 
gram, odd another trivia category and 
questions. Choose whatever category you 
like. Change the screen colors to be differ- 
ent from the other category screens. Re- 
member to redefine another function key 
and reproduce the other routines as they 
are handled in the program. 

* Experiment 6.1 Completed * 
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UNIT 7: 

Graphic 
Commands 
and 
Drawing 
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THE GRAPHIC COMMAND 

To use any of the graphic commands to 
draw shapes and lines, you must first create 
a graphic area. This is done by issuing the 
GRAPHIC command, either within a pro- 
gram or as a direct command. 

GRAPHIC can be followed by three 
parameters: 



First: 



Second: 



Third: 



Mode 

0- normal 40-column text 

1- high-resolution graphics 

2- high-resolution with 

split screen 

3- multicolor graphics 

4- multicolor with split screen 

5- 80-column text (C128 only) 

Graphic Clear Option 
• O-OO not clear screen 
l-Clear graphic screen 

Starting line for Split Screen 
Can be used in mode 2 or 4 
Default is 19 



Split screen provides lines at the bot- 
tom of the graphic screen for text. 

The difference between high-resolu- 
tion and multicolor modes is based on the 
precision with which you can draw and the 
number of colors available at one time. 
Graphic screens are divided into dots, or 
pixels, that you use as screen coordinates 
when plotting lines and shapes with graphic 



commands. The high-resolution screen is 
broken down into more pixels than multi- 
color and lets you draw with finer control of 
the pixels on the screen. Although multi- 
color has lower resolution (fewer pixels), it 
allows you to use two additional colors. This 
short program should illustrate some of the 
differences between the graphic modes. 

10 FOR X = 1 TO 4 

20 GRAPHIC X,1 

30 COIOR 1, X +2 

40 PRINT "SPLIT SCREEN" 

50 BOX 1,100,100,200,200" 1 

60 FOR T= 1 TO 100:NEXT T 

70 NEXT X 

80 GRAPHIC CLR 

The lost line, GRAPHIC CIR, puts you bock in 
normal40-column text mode. Notice how 
the bottom of the screen is cut off in the 
split-screen modes, and the printing ap- 
pears in that area. Also, you can see how 
the BOX command, even though the values 
are exactly the some in all the modes, 
draws a box in different places on the 
screen in high-resolution and multicolor 
modes. This is because the screen coordi- 
nates are different in the two graphic 
modes. While the screens are the some 
size, the resolutions are different. BOX will 
be reviewed in-depth in Unit 8. Here are the 
screen coordinates for high-resolution and 
multicolor modes: 



r 199 



319,0 



0,0 



r 160 r 100 (Midpoint) 
J 



319,199 



0.199 



159 r 



* 80,100 



159,199 



When in a graphic mode, most or all of the 
screen is used to show graphics. To return to 
the normal40-column screen that displays 
what you type, you'll need to type GRAPHIC 
or GRAPHIC CIR. If you don't, it will seem 
like the computer isn't responding at all 
when you try to type, when in actuality you 
just can't see what you're doing because the 
computer is still displaying the graphic 
mode. It might be a good ideo to program a 
function key to execute the command to 
toke you out of graphic mode and bock to 
text mode, using the KEYcommand: 

KEY 7,"GRAPHIC 0" +CHR$(13) 



You should be aware of two things when 
using the GRAPHIC command. The high- 
resolution bit-mop mode uses 10,000 bytes 
for the internal representation of the pic- 
ture. This area is reserved when you give 
the 

GRAPHIC 1,1 

command, and that port of memory is no 
longer available for other uses such as 
storing programs or variables. Since the 
Plus/4 has 65,535 bytes and the C128 has 
131,070, the loss of 10,000 bytes is not such 
a serious matter. 
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Secondly, the 

GRAPHIC 1,1 

command destroys any string variables 
which happen to exist when GRAPHIC is 
issued. Placing the GRAPHIC command at or 
near the beginning of the program, before 
any strings have been used, ovoids this 
problem. 

THE COLOR COMMAND 

The trade-off for greater resolution is 
the capacity to use more colors in multicolor 
mode. COLOR is the BASIC command used 
to change the color of any screen element 
(foreground, background, border and as- 
signing additional colors for multicolor 
mode). A typical example of the COLOR 
command is 

COIOR 1,5 

The first parameter specifies color source 
(the screen element involved), the second is 
for the color. There can be a third value, as 
mentioned earlier, for luminance for the 
Plus/4 and C16, to give the command this 
form: 

COIOR 1,5,5 

First: Color Source 

0- background 

1- foreground (character on Plus/4) 

2- multicolor 1 

3- multicolor 2 

4- border 

5- character (C128 only) 

6- 80-column background color (C128 

only) 

Second: Color (C128 values) 



1- black 

2- white 

3- red 

4- cyan 
.5-purple 

6-green 
.7-blue 
8-yellow 



9-orange 

10- brown 

11- 1 ight red 

12- dark gray 

13- medium gray 

14- light green 

15- light blue 

16- light gray 



These values correspond to the color keys. 
They are slightly different for the Plus/4 and 
C1 6 computers. Values for colors 1 through 
10 are the same as on the C128, but values 
for 11 to 16 are as follows: 



11- yellow 

12- pink 

13- blue 

14- light 

15- dark 

16- light 



green 

green 
blue 
blue 
green 



Use the COLOR command in direct mode to 
take a look at how the different shades look 
in different areas of the screen. Try typing 
these commands: 



COIOR 1,11 
COIOR 0,13 



COIOR 0,4 
COLOR 5,5 



Experiment with the color values, and if you 
are doing this with a Plus/4 or C16, a third 
value for luminance if you are doing this 
with a Plus/4 or C16, like this: 

COLOR 0,5,7 (for the lightest shade 
of purple for the 
background) 

This program uses COLOR to let you try 
every different screen color combination. 
By pressing number keys (1 and 2 for back- 
ground color, 4 and 5 for foreground and 7 
and 8 for border), you can cycle forward 
and backward through the possible com- 
binations of colors. When you find the 
most attractive screen color combination, 
press the Y key, and your screen is color- 
coordinated. This program, entitled 
COIORPLUS can be found on your program 
disk. A Plus/4 version of this program with 
additional control over luminance is on your 
disk, entitled COIORPIUS/4 . 

10 PRINT"[ SHIFT] and ] HOMF I 

SCREEN COIOR SELECTION" 
20 COIOROJ :COIOR4,2:COLOR5,2: 

REM STARTING COIOR VALUES 
25 XI =1 : X2=2: X3=2 
30 PRINT'PRESS 1 OR 2 TO CHANGE 

CHARACTER COIOR" 
40 PRINT" AND 4 OR 5 TO CHANGE 

BACKGROUND COLOR" 
50 PRINT" AND 7 OR 8 TO CHANGE 

BORDER COIOR" 
60 PRINT'PRESS Y TO STOP" 
70 PRINT" " 

80 PRINT'THIS IS HOW THIS 

CHARACTER COIOR" 
90 PRINT'IOOKS ON THIS 

BACKGROUND" 
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100 GETKEYQ$ 

110 IFQ$ = "1" THEN X2 = X2 + 1 

120 IF Q$ = "2" THEN X2 = X2-1 

130 IFX2<1 THEN X2= 16 

140 IFX2>16THEN X2 = 1 

150 IF Q$ = "4" THEN XI = XI + 1 

160 IFQ$="5" THEN XI =XI-I 

170 IF XI <1 THEN XI = 16 

180 IF XI >16 THEN XI = 1 

190 IF Q$ ="7" THEN X3 = X3 + 1 

200 IF Q$ = "8" THEN X3 = X3-1 

210 IFX3<1 THEN X3=16 

220 IFX3>16THEN X3 = 1 

230 IF XI = X2 AND Q$ = "1" THEN 

X2=X2+1 
235 IF X2>16 THEN X2=1 
240 IF XI = X2 AND Q$ = "2" THEN 

X2=X2-1 
245 IF X2<1 THEN X2= 16 
250 IF XI = X2 AND Q$ = "4" THEN 

XI =XI + 1 
255 IF XI >16 THEN XI = 1 
260 IF XI = X2 AND Q$ = "5" THEN 

XI =XI-I 
265 IFX1<I THEN XI = 16 
270 IF Q$ = "Y" THEN 300 
280 COIOR 0,XI :COIOR5,X2: 

COIOR4,X3 
290 GOT070 

300 PRINT"[ SHIFT][ HOMEI":END 



Write another screen color selection 
program using FOR/NEXTIoops to select 
screen background and character colors. 
Show each character color on each different 
background color, let the user go through 
the different combinations until they find 
one to their liking. To speed up the pro- 
gram, allow the user to choose the screen 
border color at the outset, and give them 
the option of skipping to the next back- 
ground color without going through all 16 
character colors each time. Follow this flow 
chart to design the program. 



Glossary: 

XI: Background color value 

'X2: Character color value 

X3: Border color value 

Q$: String variable for key to 
assign value to change 
screen color 



Note: To RUN this program on a Plus/4 or 
C16, references to COLOR5 in lines 20 and 
260 are changed to COLOR 1 . COIORPIUS/4 
also includes changing luminance. 

We'll concentrate on high-resolution 
mode in this section and look at multicolor 
graphics later. 
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SELECT BORDER 
COLOR 



FOR X1 



1 I 16 I 1 



DISPLAY BACKGROUND 
COLOR 
COLOR O t X1 



*- 


FOR X2 




1 | 16 | 1 



YES 




DISPLAY CHARACTER 
COLOR 
COLOR 5, X2 



( END ) 




( NEXT X1 ) 



7.1 Completed 
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DRAWING ON THE SCREEN 

The simplest computer pictures consist 
of collections of "points" or foreground 
pixels. To draw a point in the foreground 
color, use the command 

DRAW 1,X,Y 

where X and Y are the screen coordinates of 
the point. This is illustrated in the following 
program, which draws a mathematical 
curve by plotting a series of points: 

10COIOR 0,8 
20 GRAPHIC 1,1 
30 COIOR 1,1 

40 FOR X =0 TO 315 STEP 5 
50 Z = X-160 

60 Y = 0.0001 *(Z 3 + 100*Z 2- 

10000*Z) +50 
70 DRAW 1 ,X,Y 
80 NEXT X 
90 END 

Type in this program and RUN it. It shows a 
curve of black points on a yellow back- 
ground. Each point is one pixel. The pro- 
gram has several interesting features: 

The first three commands create a 
yellow display area and select block as the 
foreground color, line 40 sets X, which is 
used as the horizontal screen coordinate, to 
move across the display area in steps of 5. 

The main loop of the program runs 
from line 40 to line 80. lines 50 and 60 
calculate a value for Y in terms of X. The 
formula is selected to produce a wavy line 
(the details of the calculation are not impor- 
tant for our purposes), line 70 plots a Single 
point at screen coordinates X, Y, and line 80 
makes the machine repeat the loop for the 
next value of X. 

Notice part of the curve is outside the 
display area. For example, when X = 300 
the value of Y is about 478, which is outside 
the screen. The program shows you what 
happens if you try to plot a point outside the 
limits of the display area-nothing. 

The formula implies that the values of 
Yare often fractional, such as 1.64326. 
When given such a screen coordinate, the 
computer takes the nearest lower whole 
number, so 1 .64326 is interpreted as 1 . 

After examining the curve on the 
screen, you may want to modify or store the 



program. Remember, since you are still in 
high-resolution graphic mode, that you 
won't be able to see what you type until you 
return to text mode. 

A quick way to return to text mode on a 
C16or C128 is to hit the Fl key (which prints 
the word GRAPHIC), then press zero and 
RETURN. As soon as you do so, the ordinary 
screen with the character listing comes 
bock. 

Another way to get bock to the main 
screen is to put the command GRAPHIC at 
the end of your program. This has the draw- 
back that your picture disappears as soon as 
it is complete. This can be avoided with a 
sequence like this at the end of a program: 

85 GETKEY A$ 
88 GRAPHIC 

Now the picture won't disappear until you 
hit a key. 

If the program contains any errors, it 
will automatically return to the character 
screen. This gives you yet a third way of 
switching from the picture to the characters: 
type any line with a deliberate error, such 
as GRAPHIC by itself, followed by RETURN. 

When pixels are close together, they 
merge to form a continuous line. Change 
line 40 in the program so that X goes up in 
steps of 1 (rather than 5) and run it again to 
see the effect. 
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EXPERIMENT 

7*2 



Use the "dot-plotting" technique to 
draw some interesting curves. Here are 
some suggestions for curves. Make these 
routines into graphic programs. Remember 
to number each line and to start the pro- 
gram by issuing a GRAPHIC command. 

(a) Parabola: 
FORX=OTO 189 
Y= 199-(X-80) 2/60 
DRAW 1,X,Y 
NEXTX 

(b) Circle: 

FORJ= TO 359 

X= 160 + 80*SIN(J*n/180) 

Y= 100 + 6O*COS(J*n/180) 

DRAW 1,X,Y 

NEXT J 

(c) Sine curve: 
FORX = OT0 319 

Y= 100 + 90*SIN(XI25) 
DRAW 1,X,Y 
NEXTX 

•k ~k 

Experiment 7.2 Completed 



LINE DRAWINGS 

One method of drawing a line is to plot 
a row of pixels next to each other, like this: 

10 COIOR 0,6 

20 GRAPHIC 1,1 

30 COIOR 1,3 

40 FOR X = 30 TO 270 

50 DRAW l,XJ5 

60 NEXT X 

70 GETKEY D$:GRAPHIC 

This program draws a straight horizontal 
line between the points with coordinates 

(30,75) and (270,75) 

This method is time-consuming. Fortunately, 
the computer provides a more convenient 
way of drawing lines. You can extend 
DRAW by attaching the word TO and the 
screen coordinates of an "end point." This 
produces a straight line between the two 
points defined in the command, look at 
these two examples: 

DRAW 1,30,75 : Plots a pixel at 

(30,75) 
Plots a line 
between (30,75) 
and (270,75) 
The machine is not limited to drawing hori- 
zontallines as in this example, but can draw 
them in any direction. Most useful drawings 
consists of several lines, joined at the ends. 
For example, you could draw a square with 
the commands: 

DRAW 1,50,50 TO 100,50 

DRAW 1,100,50 TO 100,100 
DRAW 1,100,100 TO 50,100 
DRAW 1,50,100 TO 50,50 



DRAW 1,30,75 TO 
270,75 



50,50- 
50,50 



-to- 



*100,50 
— 1100 r 50 



to 



to 



50,100 
50,100-*- 



100,100 
to 100, 100 
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If you examine this sequence, you will 
notice that every point is mentioned twice. 
For example, the point (100,50) appears as 
the end point in the first command and also 
as the starting point in the second com- 
mand. To avoid this repetition, the system 
uses the concept of a "current position." In 
most cases, the current position is simply the 
place where the lost pixel was drawn. 

When you write the DRAW command, 
you can leave out the starting point, and the 
machine will simply assume that the line is 
to start from the current position. Once the 
line has been drown, the current position is 
reset to the end point. 

Using this ideo, you could rewrite the 
commands to draw the square as: 

DRAW 1,50,50 TO 100,50 

DRAW 1 TO 100,100 

DRAW 1 TO 50,100 

DRAW 1 TO 50,50 



00,50 




to 



50, 10CU* 



100.100 



The starting point still has to be specified in 
the first command. To make all the DRAW 
commands the some, you can use the IO- 
CATE command, which does nothing except 
set up a new current position. The keyword 
is followed by a pair of coordinates, like 
this: 

LOCATE 104,82 

Using IOCATE, another way of drawing the 
square is to write 

IOCATE 50,50 
DRAW 1 TO 100,50 
DRAW 1 TO 100,100 
DRAW 1 TO 50,100 
DRAW 1 TO 50,50 



This is especially useful if the DRAW com- 
mand is inside a loop. For example, this 
program will draw any shope you wont, 
according to the data points you enter: 

10 COIOR 0,1 

20 GRAPHIC 1,1 

30 COIOR 1,2 

40 READ K 

50 READ X,Y 

60 IOCATE X,Y 

70 FOR J = 1 TO K 

80 READ P,Q 

90 DRAW 1 TO P,Q 
100 NEXT J 
110 GETKEY A$ 
120 GRAPHIC 
130 END 

140 DATA 5: REM NUMBER OF 
POINTS 

150 DATA 240,100: REM STARTING 
POINT 

160 DATA 95,147: REM POINTS TO BE 

VISITED 
170 DATA 185,23 
180 DATA 185,176 
190 DATA 95,52 
200 DATA 240,100 

Press any key to return to the text screen. 
DRAW is so flexible that the options are still 
not exhausted. The first parameter after the 
keyword controls the color of the dot or line 
produced. In this position, a "1" selects the 
current foreground color. "0", however, 
implies "background color", so that the 
command can be used to delete lines al- 
ready drawn. Here, for example, is a pro- 
gram which draws a flashing cross: 

10 COIOR 0,2 
20 GRAPHIC 1,1 
30 COIOR 1,1 
40A=1 

50 DRAW A, 140,70 TO 160,70 

60 DRAW A, 150,60 TO 150,80 

70 FOR I = 1 TO 300: NEXT I 

80A=1-A 

90 GOTO 50 
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In this program line 70 acts as a delay to 
stop the cross flashing too fast, line 80 
switches the value of A between 1 and on 
alternate passes through the loop. 

Finally, DRAW can produce several 
connected lines at the same time. You can 
keep on adding "TO" and another end- 
point, and in each case the command will 
draw another straight line linked to the end 
of the previous segment. For example, the 
square discussed earlier could have been 
drawn with 

DRAW 1,50,50 TO 100,50 TO 100,100 
TO 50,100 TO 50,50 

The limit to the number of segments is set by 
the maximum command line length of 80 
characters. 



EXPERIMENT 




Using graph paper, draw a picture 
consisting of a few straight lines. Either a 
geometrical figure or an artistic drawing 
will do. Then carefully work out the coordi- 
nates of the ends of each line, and write a 
program to reproduce your picture on the 
screen. Put the coordinates in DATA state- 
ments, so that you can easily adapt the 
program to different pictures. 

* Experiment 7.3 Completed * 
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UNIT 8: 



Commands for choosing colors and plotting 
points are often called graphics "primitives," 
because they provide the framework on which 
everything else is built. With these commands 
you can, in principle, draw any picture; without 
them you can do nothing. But, in practice, the 
creation of pictures is difficult and tedious if you 
are restricted to the primitive commands. The 
computer therefore provides a selection of 
"high-level" commands which do common but 
complicated tasks automatically. 



Higher 





Commands 
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Three high-level commands we'll 
review are: BOX, CIRCLE and PAINT. Before 
going into details, it is worth dwelling on 
one feature which is common to all three 
commands: they each toke numerous 
parameters. For example, BOX can be 
followed by no fewer than seven parame- 
ters, all of which may be numbers, varia- 
bles or expressions. A possible BOX com- 
mand would be: 

BOX 1,30,50,80,100,15,1 

The parameters are, as usual, separated by 
commas. 

Quite a few of the parameters in these 
commands are optional, and if they are not 
supplied the machine takes "default" val- 



ues. For example, the fourth and fifth 
parameters in the BOX command default to 
the "current position" on the scr.een. 

If you wont to leave out a parameter, 
you must still put in the comma which sepa- 
rates it from the following parameter. If 
there are no more parameters you can 
leave the commas out. For example, in 

BOX 1,10,60 

parameters four, five, six and seven are all 
token by default. In the command 

BOX 1,3,12"" 1 

the missing parameters are the fourth, fifth 
and sixth. 



DRAWING RECTANGLES WITH BOX 



The BOX command lets you draw a 
rectangle anywhere on the screen. The 
rectangle can be of any size and point in 
any direction. 

The seven parameters of box are as 
follows: 

First: Color 

1 for foreground color, for background. 

Second and Third: The screen coordinates of one corner of the rectangle. 



Fourth and Fifth: 



Sixth: 



Seventh: 



The screen coordinates of the opposite corner of the rectangle. 
If these coordinates are not supplied the computer tokes the "cur- 
rent position" as default. 



is drown with its corners at 
Otherwise it is turned 



not radians as used for SIN 



The angle of rotation, in degrees. 
If this angle is zero, then the rectangle 
the positions given by parameters two to five, 
about its center before being plotted. 

Note that: 

0) The angle of rotation is in degrees 
and COS. 

b) If the rectangle is rotated, it doesn't pass through the selected 
corner points at all. 

This parameter controls the color of the inside of the rectangle. 
If the parameter is 0, the rectangle is drown in outline only. If the 
value is 1 , it is painted as a solid block of color. 
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After you have drawn a box, it may be a 
good idea to use the IOCATE command to 
place the cursor where you wont it. 

Here are some programs that illustrate 
different aspects of drawing boxes. Each 
program uses the BOX command to create a 
different effect. Type each in one at a time 
and RUN them. Ploy around with the 
parameter values to get a feel for how the 
BOX command can be used. 

The first program draws boxes of 
identical size on the screen in a consistent 
pattern. 

10 COLOR 0,2 
20 GRAPHIC 1,1 
30 COLOR 1,1 

40 REM******BOXES IN DIFFERENT 
PLACES 

50 FOR J = 12 TO 282 STEP 30 
60 FOR K = 3 TO 183 STEP 15 
70 BOX 1,J,K,J + 25,K + 12 
80 NEXT K,J 

100 GETKEY A$:GRAPHIC 

Things you can try changing: 

Size of the boxes (lines 50, 60 and 70) 

EXAMPLE: 70 BOX 1,J,K,J + 30,K + 6 

Placement of the boxes (lines 50, 60 
and 70) 

EXAMPLE: 50 FOR J = 5 TO 285 STEP 50 
60 FOR K = 10 TO 200 STEP 40 

The next program draws solid boxes of 
different colors, arranged in two "stag- 
gered" columns. 

10 COLOR 0,2 
20 GRAPHIC 1,1 
30 COLOR 1,1 

40 REM*******COLORED BOXES 

50 FOR J = 1 TO 5 

60 COLOR 1,J + 2 

70 BOX 1,30*J,36*J-30,30*J+50, 
36*J - 2" 1 

80 COLOR 1 ,J + 7 

90 BOX 1,30* J + 100,36* J - 30,30* 

J + 150,36* J - 2" 1 
100 FOR L = 1 TO 500: NEXT L 
110 NEXT J 

120 GETKEY A$:GRAPHIC 



Things you can try changing: 
Colors of boxes (lines 60 and 80) 

EXAMPLE: 60 COIOR 1,J + 3 
Number of boxes (variable J in line 50) 

EXAMPLE: 50 FOR J = 1 TO 3 

Size and relative placement of boxes 
(lines 70 and 90) 

EXAMPLE: 

70 BOX 1,50,30* J, 100,30* J+ 20" 1 
90 BOX 1,200,30* J,250,30* J+ 20" 1 

The third program creates a circular design 
by drawing a series of boxes by increment- 
ing the angle of rotation. 

10 COLOR 0,2 
20 GRAPHIC 1,1 
30 COLOR 1,1 

40 REM********ROTATING BOXES 
50 FOR J = 1 TO 11 
60 BOX 1, 1 00,80,240, 120)*360/11 
70 NEXT J 

80 GETKEY A$: GRAPHIC 
Things you can try changing: 
Colors of boxes (line 30) 

EXAMPLE: 30 COIOR 1, 5 
Number of boxes (variable J in line 50) 

EXAMPLE: 50 FOR J = 1 TO 25 

Note: This change may not seem evident, 
since the program may be redrawing lines 
that are already plotted. 

Placement or size of boxes (line 60) 

EXAMPLE: 

60 BOX 1,50,50,150, loo,J*360/11 
Degree of box rotation (line 60) 
EXAMPLE: 

60 BOX 1,100,80,240, 120,J*36O/6 

The dimension of the BOX command con- 
trolled by each parameter is sometimes 
most obvious when you change more than 
one parameter to see how the new dimen- 
sions combine to change the shape. In the 
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lost program, this is best demonstrated by 
changing lines 50 and 60 together, for 
example: 

50 FOR J = 1 TO 200 

60 BOX 1,100,80,240, 120,J*36O/2oo 



(a) Write a program to fill the screen with a 
"brick wall" like the one shown below. 
Use the BOX command to draw the 
wall, with each row of bricks staggered. 
Use the COLOR command to change the 
screen background color to orange or 
red, and the character color to black or 
gray for mortar. 



J IL 



•" r t ii L l^jl. 




3 



30. 



5d 



(b) Write a program using the BOX com- 
mand and DRAW commands to make a 
cube. 



(Hint: Make two boxes, and use DRAW 
commands to connect the upper left corner 
of one box to the upper left corner of the 
other, upper right to upper right, and so on.) 

* Experiment 8.1 Completed * 
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CIRCLE 

The CIRCIE command is one of the most 
versatile in BASIC. We shall explain CIRCLE 
by giving many examples to show how it 
can be used to plot triangles, half-ellipses, 
incomplete polygons, and so on. 

The basic geometric form underlying 
all the other shapes generated by the 
CIRCLEcommand is the ellipse. This is es- 
sentially an oval with a center, a horizontal 
radius (xa) and a vertical radius (yo), as 
shown in this drawing: 




CIRCLBokes nine parameters, as described 
in this list: 



Parameter 
First: 


Purpose 

l-Use foreground color 
O-Use background color 


Default 

Foreground color 


Second and Third: 


The screen coordinates of the 
center of the ellipse. 


Current position 


Fourth: 


Horizontal radius of the ellipse 




Fifth: 


Vertical radius of the ellipse 


Horizontal radius 


Sixth: 


Starting angle (degrees) 





Seventh: 


Ending angle (degrees) 


360 


Eighth: 


Clockwise rotation 





Ninth: 


Step size (degrees) 


2 



For now, we'll concern ourselves with the 
first five parameters, and use the default 
values for the lost four. 

Here are some simple examples of 
CIRCLEcommands: 

CIRCLE 1,90,120,50,10 



plots an ellipse in foreground color, cen- 
tered at (90,120), with a horizontal radius of 
50 and a vertical radius of 10. 

CIRCLE 1",5,60 

draws an ellipse centered at the current 
cursor position, and with radii of 5 and 60 
units. 

When the fifth parameter is left out, it 
defaults to the some value as the fourth 
parameter. The horizontal and vertical radii 
are now equal, and a command such as 

CIRCLE 1,150,200,40 

actually draws a shope with horizontal and 
vertical radii of 40 units, centered at 
(150,200). This is not a perfect circle, but on 
ellipse. This is due to the pixels being 
slightly wider than toll. To draw a perfect 
circle, a slight adjustment must be mode. 
The ratio of width to height of pixels is the 
aspect ratio. The aspect ratio varies, de- 
pending on your monitor, but is often ap- 
proximately 5 to 4. On many monitors, a 
radius of 65 and a vertical radius of 50 may 
form a perfect circle. 

When you have drawn on ellipse or 
circle, the "current position" is left some- 
where on the circumference. It is advisable 
to reset the cursor position with IOCATE. 



EXPERIMENT 




(0) Write a program to draw a picture of 
touching circles and ellipses, like this: 




(b) IOAD and RUN the program RUG. It 
creates rings of ellipses that resemble a 
throw rug. Change the dimensions of 
the CIRCLEcommand to round the 
ellipses into evenly-rounded circles. 

* Experiment 8.2 Completed * 
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The sixth and seventh parameters of CIRCLE 
let you draw ports or arcs of circles and 
ellipses. 




Suppose you wont to draw the arc of the 
circle shown by the heavy line. Once you 
know the center and radius of the circles, 
the arc is defined by the two angles A and 
B. If the arc is to be drown clockwise, A is 
the "starting angle" and Bthe "ending 
angle." The angles are measured in de- 
grees, like compass bearings. 

To get a part-circle, all you need to do 
is to supply the angles A and B to the CIRCLE 
command as parameters six and seven. 
You could draw the arc pictured above by 
putting: 

CIRCLE 1,100,100,50,40,45,150 

(This assumes that angles A and Bare 45 
and 150. degrees, respectively.) 

The some system can be used to draw 
parts of ellipses. Here, for example, is a 
short program that draws on egg, made up 
of a half-circle and a half-ellipse. 

10 GRAPHIC 1,1 

20 CIRCLE 1,150,100,65,80,270,90 
30 CIRCLE 1,150,100,65,50,90,270 
40 GETKEY A$:GRAPHIC 

If the starting and ending angles are not 
provided, the system tokes the default 
values of and 360, and the entire figure is 
drawn. 

Parameter number eight allows the 
whole figure (circle, ellipse or arc) to be 
rotated about the center. This is unnecessary 
for circles (since they're round, rotating has 
no effect), but useful for drawing ellipses 
with sloping diameters. The parameter 



specifies the clockwise rotation in degrees. 
For example, this command draws an 
ellipse with its major axis sloping at 30 
degrees: 

CIRCLE 1,1 50,80,1 00,20",30 

A short program to illustrate rotation of an 
ellipse: 

10 GRAPHIC 1.1 
20 FOR X = TO 180 STEP 30 
30 CIRCLE 1,150,100,40,80,„X 
40 NEXT X 

50 GETKEY A$:GRAPHIC 

The loop in lines 20-40 resets the variable X 
to rotate the ellipse 30 degrees each time it 
is drawn. 

If the eighth parameter is absent, it 
defaults to zero (no rotation). 

The ninth and final parameter for 
CIRCLEcan be used to draw polygons. Nor- 
mally, when the system plots a circle or 
ellipse, it takes positions 2 degrees apart on 
the circumference and joins them with short 
straight lines. These segments are so small 
that it appears to be a smooth curve. 

This angle is the "step angle," and can 
be varied from its two-degree default. The 
larger the step angle, the fewer points are 
plotted and the more defined are the lines 
joining the points. A shope is formed with 
the number of "sides" based on the formula 
360 degrees divided by the step angle. For 
example, a step angle of 120 forms a trian- 
gle (360/120 =3), one of 90 draws a square 
(360/90 - 4), a step angle of 72 creates a 
pentagon (360/72 — 5), and so on. 

The "step size" is supplied to CIRCLEas 
the ninth parameter. The command to draw 
a pentagon would be 

CIRCLE 1,1 00,1 00,50"",72 

IOAD and RUN the program TRIANGLES to 
see an example of how a value for the step 
angle of the CIRCLEcommand can be used 
to create other shapes, such as triangles. 

The "step size" can be used with the 
other options to produce a large variety of 
shapes. For example, if the base curve is on 
ellipse instead of a circle, the polygon will 
appear flattened. If starting and finishing 
angles are supplied, the polygon will be 
open. To get the right figure, you should 
ensure that the total arc angle (the differ- 
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ence between the starting and ending an- 
gles) is an exact multiple of the step size. 

A command to produce a flattened 
open pentagon is 

CIRCIE I, 15,100,I00,20,36,324„72 

Note that the total arc angle equals 288 
(324-36), a multiple of the step angle of 72. 



(a) IOAD and RUN the program OCTAGON. 
This program draws two offset spiraling 
octagons in different colors. After see- 
ing it, LISTthe program and change the 
CIRCLEcommands to create the some 
effect with: 

Triangles 

Squares 

Triskadecahedrons (13 sides) 

(Hint: Change the lost parameter in all the 
CIRCLEstatements from 45 to Z, and odd a 
line defining variable Z as 360 divided by 
the number of sides you wont.) 

(b) Write a program to draw a dashed 
ellipse, like this 




(Hint: Draw the ellipse first, then make 
dashes by using the parameters to draw 
arcs, selecting the arc angles to produce 
intermittent ports of the ellipse.) 

* Experiment 8.3 Completed * 
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PAINT 

The PAINT command is used to fill 
complete areas of the screen with color. 
Unlike most other commands, PAINT is not 
restricted to simple geometrical figures. It 
can handle any shope. All that is necessary 
is that the area to be pointed should initially 
be blank (background color), and com- 
pletely bordered by pixels of foreground 
color. For this purpose, the edge of the 
screen counts as a "border". It is also possi- 
ble to erose the color from areas that have 
already been colored. 

The PAINT command normally takes 
three parameters, like this: 

PAINT I, 150,100 
First: Color Source 

0- to point area with foreground color 

1- to use background (default) 

2- Multicolor I 

3- Multicolor 2 

Second and Third: the screen coordinates 
of any point inside the area to be painted. 

To see the PAINT command in action, enter 
and run the following simple program: 

10 COLOR 0,2 

20 GRAPHIC 1,1 

30 COLOR 1,1 

40 CIRCLE 1,100, 100,50 

50 PAINT 1,100,100 

60 CIRCLE 0,100, loo,40 

70 PAINT 0,100,100 

80 GETKEY A$:GRAPHICO 

In this program, command 40 draws a cir- 
cle, and command 50 fills it in with the 
foreground color, line 60 now draws a circle 
in background color, and command 70 
paints it over, leaving a ring of foreground 
color only. 

The PAINT command is easy to use, but 
there are two special conditions of which 
you should be aware. 

First, it is essential that the area being 
pointed be COMPLETEIY surrounded. A gop 
of even one pixel will let the paint leak out 
and flood the picture. To illustrate this, 
change the program in your machine by 
adding 

45 DRAW 0,50,100 



This command puts one white pixel into the 
circumference of the circle. When you run 
the program the damage will be obvious. 

The other problem arises when two 
colored areas touch. The screen is divided in 
"cells" of 64 pixels each, and only one 
foreground color is allowed in each cell. 
When the PAINT command puts the current 
foreground color into any pixel, it changes 
the color byte and this affects all the pixels 
in the cell. To see this effect, RUN the fol- 
lowing program: 

10 COLOR 0,2 

20 GRAPHIC 1,1:COLOR 1,5 

30 CIRCLE 1,150,100,70 

40 CIRCLE 1,150,100,50 

50 PAINT 1,150,60, I 

60 COLOR 1,8 

70 PAINT I, 150,35, 1 

80 GETKEY A$:GRAPHICO 

When PAINT is coloring complicated areas, 
its action is remarkable to watch. When the 
flood of color has to divide into two 
branches, the machine postpones filling 
one of them but comes bock when it has 
completed the other. 

To see this effect in action, IOAD and 
RUN the program PAINTDEMO. This pro- 
gram first draws a maze in black and white 
and then fills ports of it in different colors. 
RUN the program a few times to observe the 
filling action of the PAINT command. Type 
RUN and press RETURN (even though you 
won't be able to see what you type) to rerun 
the program. When you're through with it, 
reset the computer or type GRAPHIC and 
press RETURN. 
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This final program utilizes nearly all the 
graphic commands reviewed in the last two 
chapters. This program creates a three- 
dimensional design, which happened to be 
the symbol of the 1939 New York World's 
Fair, a sphere and a pyramidal tower. 
Sketching the design first and plotting the 
relevant points makes it much easier to 
draw in a program using graphic com- 
mands. Here is a diagram of the design, 
featuring the important screen coordinates: 
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The program to create this image, for C128, 
Plus/4 and C16 computers: 

10 GRAPHIC 1,1 

15 REM***DRAW SPHERE 

20 CIRCLE 1,110,124,40,28 

30 CIRCLE 1,11 0, 124,24,28,0, 180 

35 REM***DRAW PYRAMID 

40 LOCATE 180,145 

50 DRAW TO 200,5 to 220,145 

60 IOCATE 2oo,5:DRAW to 202, 155 

70 LOCATE 180, 145:DRAW TO 

202, 155 TO 220,145 
75 REM***DRAW BASE 
80 BOX 1,50,161,250,180 
90 DRAW 1,250,161 TO 280, 137 TO 

280,154 TO 250,180 
100 DRAW 1,280, 137 TO 146,137 
110 DRAW 1,50,161 TO 78,140 
120 DRAW 0,183,137, TO 201,137 
125 REM***FILL IN SHADING 
130 PAINT 1,137, 124:PAINT 1,210, 145 
140 PAINT 1,270, 147:PAINT 1,202,80 
1000 GETKEY A$:GRAPHIC 
This lets you see how all the commands can 
be integrated to create one cohesive 
deSign, and how plotting the points first 
makes writing graphic programs easier. You 
can change the colors in line 5 for the com- 
bination that looks best on your computer. 
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(0) Add a single line to the first BOX pro- 
gram (that drew a grid pattern of boxes) 
to PAINT the area outside of the boxes 
block. 

(b) Write a program that draws a checker- 
board pattern on the screen. Then use 
the PAINT command to fill in every 
other block with red or black, like on a 
checkerboard. 

(c) IOAD and RUN the program HOUSE 
DRAWING or HOUSE DRAWING/4. 
Notice that the grass area is blank; 
PAINT the area green. 

* Experiment 8.4 Completed * 



UNIT 9: 

Graphic 
Topics 

We have reviewed the elementary com- 
mands for creating computer graphics, as well as 
some of the more advanced time-saving com- 
mands. There are additional commands and 
concepts which you can use to place text in 
pictures and designs, change the screen coordi- 
nates, save and recall what is pictured on certain 
areas of the screen, use additional colors, and 
more. 



73 



MULTICOLOR MODE 

Multicolor mode is an alternative 
graphic mode to high-resolution. With' 
multicolor mode, it is much easier to draw 
pictures in many colors, but you give up the 
high-resolution sharpness of detail. You 
can enter multicolor mode by issuing the 
GRAPHIC command with the first parameter 
of 3 or 4. For instance 

GRAPHIC 4,1 

puts you in multicolor mode with a split 
screen, and clears the graphic screen. 

A major difference between multicolor 
and high-resolution modes on all three 
computers is there are 160 pixels in each 
row of a multicolor, as opposed to 320 in 
high-resolution mode. A multicolor pixel is 
twice as wide as a high-resolution pixel. 
There are still 200 rows of pixels in a full 
screen display, or 160 rows if a split screen 
is in use. 



With COLOR, you recall, the first parameter 
specifies color source. Values of 2 and 3 for 
color source refer to registers that hold a 
particular color for use in multicolor mode. 
Using COLOR in multicolor mode is like 
selecting colors in high-resolution, except 
that you can use colors assigned to source 2 
and 3 in your picture. For example, 

COLOR 3,9 

fills the 'color3' register (multicolor I) with 
orange. 

You are already familiar with COLOR 0, 
COLOR I and COLOR 4 in other contexts. 
You will remember that colors in the regis- 
ters can be changed at any time. In DRAW, 
BOX, CIRCLEand PAINT, the first parameter 
indicates the color source to be used. This 
allows any of the color registers (0, I, 2 or 3) 
except the border to be selected for the 
command. So the statement 

BOX 2,50,50, 100, loo" I 

draws and fills in a box using the color 
assigned to color register 2. 



IOAD and RUN the program SWIRLSfor 
an example of how you can use the extra 
colors that multicolor mode affords you. 

SWIRLScreates spiral designs com- 
posed of triangles. Each side of the each 
triangle is a separate random color assigned 
to a different color source (foreground, 
multicolor land 2). A colorful nautilus shell 
pattern emerges from repetition of these 
triangles rotated around a moving axis, 
repeating the some colored sides in a spiral 
series of enlarging triangles. Notice the 
TRAP statement in line 5 (TRAP900) that sets 
up a trap routine such as the ones described 
in Unit 3. If there is on error, the program 
leaves multicolor graphic mode and enters 
normal text mode. This routine could also 
include a RESUM Estatement transfering 
execution to another port of the program 
when on error occurs. 

There is one important difference in the 
color registers between the C128and the 
Plus/4 and C16. On the latter two comput- 
ers, the two background colors, and 3, are 
constant over the whole 
a blue patch using color 
color 3 to point a yellow 
patch changes to yellow 
other hand, the two foreground colors can 
vary over the screen, as long as there are 
not more than two different foregrounds in 
each color cell. To put this a different way, 
the two foreground colors are stored sepa- 
rately for each of the looo color cells, but 
the two background colors are only stored 
once for the whole picture. Multicolor mode 
on the C1 28 does not treat background 
colors in this fashion. 



picture. If you draw 
3, and then change 
patch, the blue 
as well. On the 
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EXPERIMENT 

94 



(a) Write a program that uses the BOX 
command and three color sources of 
boxes (with colors generated randomly) 
to form a colorful "sideways V" design 
across the screen, like this: 



Experiment 9.1 Completed * 
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USING TEXT WITH GRAPHICS: THE CHAR 
COMMAND 



Many graphic screens need to feature 
some writing as well as pictures. This is 
especially important for graphs anddia- 
grams, but may also be necessary for artistic 
pictures such as backgrounds to games. 

The command to put characters into a 
graphic screen is CHAR. The keyword is 
followed by four parameters: 

EXAMPLE: CHAR 1 ,20, 10,"EXAMPIE M ,0 
First: Color of the characters 

l-current foreground color 

0-background color 

Second and Third: the position of the left-hand end of the string of characters to 
be displayed, by character row and column numbers. 
These are not normal screen coordinates: CHAR assumes that the 
screen is divided into 40 columns and 25 rows. 

Fourth: The string to be displayed. 

Only character set I (capitols and graphics) can be used. 

Fifth: Reverse print (background color printed on foreground) 

0- normal print 

1- reverse print on 

When you use CHAR, be aware of its restric- 
tions. First, the special coordinate system 
limits where you can put your string of 
characters on the graphics screen. You 
are reSTricted to the some positions as are 
available for normal character display, 
unless you arrange to move the charac- 
ters afterwards. 

Secondly, the characters you may use 
are restricted; you are limited to capital 
letters and graphic symbols. There is there- 
fore no way of using lower case letters, or 
characters you define yourself. The system 
uses the ASCII codes in the string to get the 
character definition contained in set I. 
Special codes like CHR$(14), which would 
normally switch the display to set 2, are not 
correctly interpreted. 

The actual use of CHAR is not difficult. 
Here, for example, is a short program which 
displays a title, centered and boxed: 

10 COLOR 0,1 
20 GRAPHIC 1,1 
30 COLOR 1,2 

40 CHAR 1,13, 10,"INTRODUCTION" 
50 CHAR 1,18,12,"TO" 
60 CHAR I, 16, 14,"BASIC" 



70 BOX 1,103,75,201,125 
80 BOX 1,98,70,206,130 
90 PAINT 1,99,71 
100 GETKEY A$:GRAPHIC 

Note that the first "I" of the word INTRO- 
DUCTION is in character cell (13, 10). This 
means that its top left-hand corner is at 
PIXEL(1 04,80). In general, the character cell 
coordinates must be multiplied by 8 to get 
pixel coordinates. 
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CHARACTER COORDINATES 



^ 39 
^ 319 



PIXEL COORDINATES 



o 



24 199 




Pixel Coordinate (P*8,GT8) 
CjH [ aT] 



Character Coordinate (P.Q) 



When the CHAR option is used on a multi- 
color screen, each character is only four 
pixels wide. This damages the shope of the 
character, but text is still easily readable. 

SSHAPE AND GSHAPE 

These two commands are used for 
"holding" complex shapes and reproducing 
them on the screen in various positions. 

The keyword SSHAPE stands for 'Save 
SHAPE'. The parameters which follow de- 
fine a rectangular area of the screen. The 
details of this area are preserved, in coded 
form, in a named string variable. 

GSHAPE stands for 'Get Shape'. The 
command specifies a string and on area of 
store. The system assumes that the string 
contains a coded shope and reproduces the 
shape in the given position on the screen. 

The parameters for SSHAPE are: 

EXAMPLE: SSHAPE A$,20,30,50,50 



77 



First: 



The name of a string variable. 

This variable is used to store the shape in coded form. 



Second and Third: The screen coordinates of the top left-hand corner of the area 
to be saved. 



Fourth and Fifth: 



The screen coordinates 
area to be saved. 



of the bottom right-hand corner of the 



Similarly, the parameters for GSHAPE are: 

EXAMPLE: GSHAPE A$, 100,100,0 
First: The name of the string which contains the coded shope. 

Second and Third: The coordinates of the top left hand corner of the area where 



Fourth: 



the shape is to be reproduced. 
The 'mode' of reproduction. 

is the default, the straight-forward copying of the shape, 
cover the other values for this parameter shortly. 



We'll 



SSHAPEand GSHAPE are always used to- 
gether. SSHAPE makes a box around on 
area of the screen and holds the informa- 
tion for producing whatever shape is in that 
box. GSHAPE tokes what's in the SSHAPE 
box and redraws it anywhere on the screen. 
Here is a simple example: 

10 COLOR 0,2 
20 GRAPHIC 1,1 
30 COLOR 1,1 

40 FOR J = TO 5: REM DRAW 
SHAPE 

50 BOX 1,1 00,1 00,1 30,1 10,j*30 
60 NEXT J 

65 REM SAVE SHAPE 

70 SSHAPE B$,loo,90,130,120 

80 SCNCIR 

85 REM PLACE SHAPE ON SCREEN 

90 GSHAPE B$, 10, 10 
100 GSHAPE B$,50, 150 
110 GETKEY A$:GRAPHICO 

In this program, lines 40 to 60 draw a pat- 
tern on the screen. The pattern is entirely 
contained within the area whose corners 
are at (100,90) and (130, 120). 

Once the shope has been drawn, it is 
'captured' by the SSHAPE command in line 
70. The contents of the screen in the given 
rectangle are converted into a string of 
bytes and put into variable B$. Although this 
variable is still a string, it can't be treated 
like an ordinary string. For example, if you 
try to PRINT this variable after going bock to 



the character mode, you get a jumble of 
apparently random characters. 

Once the shape has been preserved, it 
can be drown anywhere on the screen. 
Commands 90 and 100 give two possible 
positions. 

You can draw and redraw this shope 
wherever and as often as you like on the 
screen. If you change the end of the pro- 
gram to read 

90 FOR X = 10 TO 300 STEP 30 
loo FOR Y = 10 TO 150 STEP 45 
110 GSHAPE B$,X,Y 
120 NEXT Y,X 
130 GETKEY A$:GRAPHICO 

you'll find the entire screen nearly filled 
with the shope. 

When you use GSHAPE and SSHAPE, be 
aware of the following. First, all strings in 
CBM BASIC are restricted to a maximum of 
255 bytes. When a string is used to preserve 
a shape, each byte holds 8 pixels, as well as 
certain other overheads as well. This limits 
the size of shope you can store to about 
2000 pixels. For example, a string could just 
hold on area of 50*40 points. 

Secondly, the SSHAPEcommand does 
not preserve any color information. You can 
reproduce the shape in any color you like: it 
depends on the foreground color selected 
when GSHAPE is obeyed. In the multicolor 
mode, the SSHAPEand GSHAPE commands 
work similarly. The computer stores only the 
color source assigned to draw each part of 
the shape, but not the actual color that was 
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in the color register. When the area is repro- 
duced with GSHAPE, the colors used to 
recreate the shapes are the ones currently in 
the color registers when GSHAPE is issued. 
They can be entirely different from the ones 
when the shape was stored. 

Thirdly, there is no simple way to put in 
a shope as a 'predefined constant' or as a 
set of data values. Every shope must actu- 
ally be drawn on the screen and then 
stored. 

The fourth parameter in GSHAPE 
(mode) takes any of the five values to 4. 

means that the shape is to be drown 
into a cleared area; any port of the 
picture already there is destroyed. 

1 is the same as 0, except that the shope is 
drown with background and foreground 
interchanged-that is, like a photo- 
graphic negative. 

2 causes the shope to be 'OR'ed with the 
existing picture. Every foreground pixel 
in the shope is copied to the screen 
(overwriting what's there), but the other 
pixels already on the screen are left as 
they are. 

3 makes the machine 'AND' the shape 
with the existing picture. Every 'back- 
ground' pixel in the shape is copied (as 
a background pixel) but the other pixels 
are left unchanged. 

4 specifies on 'EXCLUSIVE OR' operation 
between the pixels of the shape and of 
the existing picture. The effect changes 
the existing screen pixel (from fore- 
ground to background or vice versa) 
wherever the shape has a 'foreground' 
pixel . 

Option 4 is one of the most useful. If you use 
it to place a shope on to a blank screen, the 
shape appears in its normal colors. How- 
ever, if you put the shope into on area of 
foreground, it comes up inverted. In either 
case, if you put the shope into the some 
position a second time, again using option 
4, it will disappear. This works correctly no 
matter how complex the background, so 
you can use option 4 to move a shope across 
an existing picture without leaving a trail of 
destruction. 



Enter and RUN this program to see how 
option 4 works on different color fields: 

10 GRAPHIC 4,1 

20 COLOR 0,1 :COLOR 1,7:COLOR 

2,2:COLOR 3,3 
30 FOR A = 1 TO 45: REM DRAW 

TRICOIORED RING 
40 BOX 1,30,30,45,45,A 
50 BOX 2,30,30,45,45, (22.5 +A) 
60 BOX 3,30,30,45,45,(45 +A) 
70 NEXT A 

80 SSHAPE A$,20,20,50,50:REM SAVE 
RING SHAPE 

85 REM DRAW COLORED BOXES 

90 BOX 1,50,20,80,50„1 
100 BOX 2,80,20,110,50" I 
110 BOX 3,110,20,140,50" 1 
115 REM REDRAW SHAPE ON 

COLORED AREAS 
120 GSHAPE A$,62,20,4 
130 GSHAPE A$,92,20,4 

Notice how the ports of each ring that are 
the some color as the pointed area they are 
located on change color to the background 
color of block, and the other colors are 
reversed from the original as well. 

Add the following lines and watch 
what happens: 

140 FOR DE — 1T02oo:NEXT DE:REM 

DELAY LOOP 
150 GSHAPE A$,62,20,4 
160 GSHAPE A$,92,20,4 

Do you understand why that happened? The 
EXCLUSIVEOR first put the "opposite" colors 
on every background the first time you use 
GSHAPE in that place. The second GSHAPE 
causes the opposite colors from the shope to 
be placed in that location, which is like re- 
coloring with the original colors. You can 
experiment with GSHAPE by changing the 
last parameter value to I, 2 and 3, and 
placing the shape on the different colored 
areas. 
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EXPERIMENT 

9-2 



SCALE 

The SCALE command changes the way 
the machine interprets screen coordinates. 
If you turn on scaling by the command 

SCALE I 

then both the X and Y dimensions of the 
screen are token to run from to 1023. The 
scaled coordinates of a point in the middle 
of the screen are (511,511). 

For the C128, you can add parameters 
to change the default scaling of 1023. A 
second parameter specifies the maximum 
value for X and a third defines the scaled 
coordinate for Y. This number can be as 
high as 32676 for both X and Y coordinates, 
so a possible command might be 

SCALE 1,255,200 

In practice, a scaled picture is still drown as 
a collection of pixels, with the number per 
row or column depending on the GRAPHIC 
mode. Since there are always more scaled 
positions than pixels, several scale points 
'mop' to the some screen position. For ex- 
ample, the scaled point (511,511) is indistin- 
guishable from (510,510). 

It's easy to see the effect SCALE has on 
the screen coordinates. The following pro- 
gram draws a triangle inside a rectangle 
with normal (unsealed) screen coordinate 
values, and then it repeats the somes com- 
mands with scaled coordinates. The differ- 
ence is apparent. 

10 GRAPHIC 1,1 

20 FOR A = TO 1 

30 SCALE A 

40 BOX 1,10,10,310,190 

50 CIRCLE 1,160,100,60"", 120 

60 NEXT A 

70 GETKEY A$:GRAPHIC 

If you change line 30 to read 

30 SCALE A, 32000,32000 

you'll see an even more striking difference. 

Scaling is useful for some mathemati- 
cal applications. It can be turned off by 
writing 

SCALE 



(0) Without changing the lost program, odd 
one line so the tricolored ring is re- 
drawn in purple, green and yellow. 

(b) Using CHAR, GSHAPE and SSHAPE, work 
out a method of putting text at any pixel 
position on the screen. Build your sys- 
tem into a subroutine which takes the 
following parameters: 

Al$ The string to be displayed 
XI, Yl: The display position (top 

left-hand) corner of the first 

character) 

Devise and run a simple test program for 
your subroutine. 

(Hint: Use CHAR to put the string at a fixed 
position. Then capture it with SSHAPE and 
use GSHAPE to put a copy where you want 
it. Remember to remove the string as writ- 
ten by CHAR. ) 

Assume the string is not more than 20 
characters long. 

* Experiment 9.2 Completed * 
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EXPERIMENT 

9*3 



You can see how SCALE can be used to 
create an interesting effect with changing 
sizes in a program by looking at SWIRLS 
again. 

The Plus/4 version of the SCALE com- 
mand is similar to the C128, except you can 
only use the first parameter to turn scaling 
on or off (lor 0). The scaling coordinates 
automatically default to values of O-l 023 
for both X and Y coordinates. 



(a) IOAD and RUN the program SCALESor 
SCAIES/4. Change the second and third 
parameters for each SCALE command to 
see how that affects each row of rings. 

Note that because of the SCALE command 
form on the PIUS/4 and C16, you cannot 
change the parameters in this experiment. 

(b) IOAD and RUN the program QUIZ9 or 
QUIZ9/4, which contains questions 
about graphics based on the material in 
Units 7,8 and 9. 

* Experiment 9.3 Completed * 
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UNIT 10; 

Sound 
and 

Music 

This unit describes the BASIC commands that 
let you program music on the Plus/4, C16, and 
C128. Although these computers use similar 
commands, the parameters are different be- 
cause they have different sound chips. This unit 
is broken down into two parts: Sound and Music 
on the Plus/4 and C16, and Sound and Music on 
the C128. 
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SOUND AND MUSIC ON THE PLUS/4 
AND C16 

The Plus/4 and C16 have one chip 
responsible for sound and video production, 
load the program DEMO SOUND, turn up 
the volume on your TV or monitor and play 
through the selection of sound effects. This 
gives you some idea of what the TEDchip 
does in the way of sound production. Your 
computer also creates actual melodies. 

Sound production on the Plus/4 and 
C1 6 is controlled by two commands, VOL 
and SOUND. Combinations of these two 
commands can create a full range of musi- 
cal notes and an infinite variety of sound 
effects. 

VOL 

VOL command has one parameter, 
which ranges from to 8. 

The command is, in effect, a volume 
control. The sounds are at their loudest 
when you have declared: 

VOL 8 

and reduced to silence with: 
VOL 

Intermediate degrees of volume are se- 
lected by other VOL values. 

When you run a program containing 
sound, you may also have to turn up the 
volume control on your TV or monitor. 

SOUND 

The command used to produce an 
actual tone is SOUND. Each SOUND 
command must be followed by three 
parameters: 

First: Voice 

• 1 -musical tones 

• 2-musical tones 

• 3-sound effects (white noise) 

Note: Voice 3 is not truly an independent 
voice, but rather Voice 2's ability to create 
noise as well as tones. In addition, noise is 
white, that is, not unpleasant, at certain 
frequencies (600-900). 



Second: Sound register (pitch), 

which determines how high or low 
the sound will be 

• This value must be in the range 
0-1023. Certain values will 
generate pitches not usually 
audible. 

The higher the value, the higher the pitch. 
The following short program plays all the 
possible pitches: 

10 VOL 7 

20 FOR J =0 to 1023 
30 SOUND1 ,J, 1 
40 NEXT J 

Third: duration, how long the sound 

• This value must be in the range 1 
65535. Duration is measured in 
jiffies, or l/60ths of a second. 

For example, a note of 60 jiffies will last one 
second, and a note of 30 jiffies lasts half a 
second. 

Try these SOUND examples; remember 
to NEW the computer's memory after each 
trial. 

1) Machine Gun 

10 VOL 7 

20 FOR L = 1 TO 30 

30 SOUND3,920,4 

40 FOR C = 1 TO 50:NEXT C 

50 NEXT L 

60 END 

Notice Voice 3 in a high register simulates 
the rapid fire of a machine gun. line 40 is 
an empty loop to take up space between 
bullets. 

2) Steam Engine 

10 VOL 7 

20 FOR = 20 TO 6 STEP -1 

30 FOR P = 1 TO 4 

40 SOUND3,850,D 

50 SOUND1, 1021,0*2 

60 NEXT P 

70 NEXT 

80 FOR X = 1 TO 60 

90 SOUND3,850,D 
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100 SOUND1, 1021,0*2 
110 NEXT X 
120 END 

A steam engine is simulated by steadily 
decreasing the duration of a Voice 3 sound 
and repeating the sound in rhythmic pulses. 
In line 50, the sound register 1021 in Voice 1 
is not audible separates the sounds. By 
doubling the duration for the separation 
command, making the inaudible sound 
twice as much long as the audible sound, 
we accent the pulsing of the wheels. 

3) Foghorn 
10 VOL 7 

20 FOR X = 1 TO 3 

30 SOUND1 ,5,90 

40 SOUND3,1012,90 

50 FOR J = 1 TO 3000:NEXT 

60 NEXT X 

The foghorn uses a combination of two 
sounds: a low tone in Voice 1 and a buzzing 
sound in Voice 3. Many combinations are 
possible. 

CREATING SOUND EFFECTS 

Developing sound effects on the com- 
puter involves a combination of skill, good 
luck. There is no formula for reproducing a 
sound such as a gunshot or a birdcall. There 
are, however, guidelines you can follow so 
that your sound effect experiments are 
more than just random button-pushing. 

The task can be broken down into 
several parts: 

1) What voice should be used? 

Is the sound a combination of musical 
tones? Or does it have a buzzing or brushy 
sound best suited to Voice 3? In some cases 
a combination of voices will enable you to 
create recognizable sound effects. Hint: a 
surprising variety of sounds are created 
from musical tones. 

2) Is the sound steady, or does it fall or 
rise? 

If the sound changes drastically in pitch, you 
may need a series of SOUND commands. 
Consider using a FOR-NEXTIoop to control 
the changing pitch if the change is regular. 



3) Does the sound have a regular or ran- 
dom pattern? 

Once you have determined the qualities of 
the sound, begin to experiment. Set up a 
simple program that creates a sound which 
rises, or falls, or follows the pattern you 
have determined. Plug in different values 
for voice, sound register and duration until 
you arrive at the sound you want. 

An interesting way to hear the variety 
of sounds the Plus/4 and C16 can create is to 
use random values for frequency and dura- 
tion. The RND command can be used to 
define the sound register and duration. 

Try this program: 

10 VOL7 

20 FOR J = 1 TO 10 

30 S= ((RND(0)*1023) + 1) 

40 = ((RND(0)*6O) + 1) 

50 SOUND1 ,S,D 

60 NEXT J 

This program generates a series of varied 
tones. Notice that line 50 indicates all the 
sounds should be produced by Voice 1 . If 
we add another RND statement to allow the 
computer to use any voice, we should a 
greater range of sound. Add: 

45 V = ((RND(0)*3) + 1) 
50 SOUND V,S,D 

When you run the program with the added 
line, notice several types of sound. In some 
cases the sounds overlap. This should give 
you more ideas for the variety of effects 
possible. 
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EXPERIMENT 

104 



CREATING MUSIC 

Use the SOUND command to make 
your computer play tunes. Each note of a 
melody can be played by its own SOUND 
command. Try the following program, 
which plays the first line of a familiar tune: 

10 VOL7 

20 FOR X = 1 TO 3 

30 SOUND1 ,739,45:S0UND1, 1023,2 

40 NEXT X 

50 SOUND1,770,15 

60 SOUND1 ,798,45 

This method of creating music would rapidly 
get out of hand; a song of average length 
might take hundreds of SOUND commands 
to reproduce, luckily, there are other ways 
to supply the computer with the appropriate 
values for the SOUND commands. 

READ/DATA statements work very well 
for programming music. We enter the val- 
ues for each note, both sound register and 
duration; we set up a loop to read the data 
for one note; play that note; and loop back 
to read the values for the next note. 

To separate each note, place a tone in 
an inaudible sound register between each 
note in the song. A duration of two jiffies is 
usually sufficient to provide a gap between 
the notes. This is especially useful in songs 
which have notes that repeat, such as the 
example above. Place these two commands 
at the end of that program: 

70 SOUND 1,400,30 
80 SOUND 1,400,30 

Run the program. Instead of two short notes, 
the computer plays one long one. That's 
because the computer finishes one note and 
immediately plays the second. The two 
commands produce exactly the same 
result as: 

SOUND 1,400,60 

because the two notes run together without 
any gap. Add :SOUND1, 1023,2 to line 70 
and the problem is solved. 

load and run the program "Swansong" 
from your program disk. When you list the 
program, you'll see a six-line program, then 
line after line of data scroll on the screen. 
The program's structure is simple: 



a) Write a program that simulates the 
sound of a rocket blasting off. 

• The engines warm up while a beep 
counts down ten seconds. Then all 
the engines fire and the rocket takes 
off. The sound of the engine dies off 
as it moves further and further from 
the earth. 

b) Write a program to respond audibly to 
quiz questions. One portion of the pro- 
gram will create a bright beeping if a 
correct answer is given. The rest of the 
program responds with a brash noise to 
an incorrect answer. 

• Experiment with different sounds for 
the responses. 

• Incorporate the program as a sub- 
routine within the TRIVIA program 
from Unit6. 

* Experiment 10.1 Completed * 
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10 VOL 7 

20 READ X,Y 

25 IF X=0 THEN END 

30 SOUND1 ,X,Y 

35 SOUND1, 1020,2 

40 GOTO 20 

100-210 DATA 

line 20 reads the data for each note 

line 25 checks for a terminator 

lines 30 and 35 play the note and an 
inaudible separator note 



Note 

Octave 1 : 
C 

C#/Db 
D 

D#/Eb 

E 

F 

F#/Gb 
G 

G#/Ab 
A 

AH/Bb 
B 

Octave 2: 
C 

C#/Db 
D 

D#/Eb 

E 

F 

F#/Gb 
G 

G#/Ab 
A 

A#/Bb 
B 



Sound Register 



169 
217 
262 
305 
345 
383 
419 
453 
495 
516 
544 
571 

596 
621 
643 
665 
685 
704 
722 
739 
755 
770 
784 
798 



line 40 loops back to the READ 
statement. 

Almost any melody can be created with 
exactly the same program, just different 
DATA lines. But unless you know what 
values to use for the various notes in the 
scale, programming music is almost impos- 
sible. The chart below contains the sound 
registers for the notes of a chromatic scale 
over a range of several octaves. 




Note 

Octave 3: 
C 

C#/Db 
D 

D#/Eb 

E 

F 

F#/Gb 
G 

G#/Ab 
A 

AH/Bb 
B 

Octave 4: 
C 

C#/Db 
D 

D#/Eb 

E 

F 

F#/Gb 
G 

G#/Ab 
A 

A#/Bb 
B 



Sound Register 

810 
822 
834 
844 
854 
864 
873 
881 
890 
897 
904 
911 

917 
923 
929 
934 
939 
944 
948 
953 
957 
960 
964 
967 



Sound Registers on the Plus/4 and C16 
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MUSICAL THEORY 

Before you can begin to program music 
on your own, you need to have some idea 
of the relation of the letter names of the 
notes to written music. Here is a diagram 
showing three octaves of notes, with their 
corresponding letter names. 



in ii in in n i 

B A B C D IE F A Ifl C D E F A B C D E F 




In music, the whole note is the basic mea- 
sure, whether it is subdivided into half, 
quarter, eighth or sixteenth notes. For prac- 
tical purposes, however, the quarter note is 
generally used as the standard for the 
tempo, that is the "speed", of the music. 
Four beats equal one whole note. Here are 
some important musical symbols and their 
time values. On the right side of the chart 
are the symbols for notes, the moments 
when sounds are made. On the left are 
rests, or breaks between musical sounds. 



RESTS 



To translate a melody from written music to 
code your computer can understand, break 
the task into several steps: 

1) Write down the sound register value for 
each note. It may be helpful to copy the 
music onto a piece of paper, replacing 
the note symbols with their correspond- 
ing letters. Refer to the list of sound 
registers to locate the value for each 
note. 

2) Determine the duration of the quarter 
note. In slow music try 60 or 30 jiffies as 
the quarter note value. If there are 
sixteenth notes, try 64 or 16 as the quar- 
ter note (making it easier to subdivide 
into sixteenth notes). Write down the 
duration next to each note. 



Whole 



* * I I 

111 11 111 11111711 



Half 

Quarter 
Eighth 
Sixteenth 



NOTES 
O 



J 

J J J J 
)}MM Jjjjjjjj 



Whole 



Hoff 



Quarter 



Eighth 



Sinreenth 
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3) Copy the musical program (with the 
READ-DATA statements). Replace DATA 
lines with your own data: 

Start with the first note in the song. 
Type its sound register, and then its 
duration. Then type the values for the 
second note, and so on. Remember- 
separate each piece of data with a 
comma. 

4) Continue until the entire song is coded 
in DATA statements. It is helpful to place 
each measure of the song in one DATA 
line followed by a REM statement such 
as :REM MEASURE ONE. Perhaps, di- 
vide the DATA into musical phrases. It 
isn't necessary to divide the DATA; you 
are limited only by program line length 
(160 characters). 

Turkey In the Straw 

FEDEDCDFG ABA FADE FFFEDE F E E F £ t> EDC D 




• All F'sand C's are sharp-thisis signified 
by the # symbols at the left of each staff, 
called the key signature. 

• Use 10 as the eighth note length. 

•k * 

Experiment 10.2 Completed 




Create a program to play the following 
piece of music: 
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SOUND AND MUSIC ON THE C128 

The Commodore 128 is capable of 
producing sophisticated sound effects or 
complex musical compositions. It can pro- 
duce three independent voices (sounds) 
simultaneously, giving you a great deal of 
creative freedom in sound production. 

There are two ways to produce sound 
on the C128, each with a separate set of 
commands. Either method can be used to 
produce sound effects or music, but one is 
more suited to simpler sound effects and the 
other method lends itself to musical compo- 
sition. 

SOUND EFFECTS 

Production of sound effects can be 
accomplished with only two commands: 
SOUND and VOL 

VOL 

VOL is a volume control. Unless you set 
the volume level, the sounds you create 
may not be audible. VOL has only one 
parameter, volume level, which must be in 
the range to 8. VOL turns off the sound 
and VOL 8 is the loudest level. You may 
need to turn up the volume on your monitor 
or TV set in order to hear the sound effects 
you are creating. 

SOUND 

Atypical SOUND command for the C128 
might look like this: 

SOUND1 ,2000,60,1,300,20,1 

The SOUND command has eight parame- 
ters, the last five of which are optional. 

SOUND vc,freq,dur,dir,min,svwf,pw 

First: VoiCe-1, 2 or 3 

Second: FREQuency-in the range 0- 
65535 

Third: DURation-in 60ths of a 

second, called jiffies 

Fourth: DIRection-set the DIRection, or 
"sweep", in which the sound 
in incremented/decremented 



0- increment the frequency upwards 

1 - decrement the frequency downward 

2- oscillate the frequency up and down 

Fifth: MINimum frequency (in the 

range 0-65535) if the sweep 
(DIR) is selected 

Sixth: Step Value for the sweep (in 

the range 0-32767) 

Seventh: Wave Form (0-3) 
0-Triangle 
1 -Sawtooth 

2- Variable Pulse 

3- White Noise 




VARIABLE 
PULSE 



NOISE 
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It is only necessary to understand that 
triangle, sawtooth and variable pulse 
waveforms produce similar but distin- 
guishable sounds, while the white 
noise waveform produces non-musical 
noise. 

Eighth: Pulse Width, the width of the 
variable pulse wave form, in 
the range 0-4095 

Only the first three parameters-Voice, 
Frequency, and Duration-are necessary in 
order to create a sound. Try this program: 

10 VOL 5 

20 SOUND1, 10000,60 

When you run the program, the 128 plays a 
pitch in voice 1 at frequency 10000 for 60 
jiffies (one second). 

Change the frequency value in line 20 
to 40000. When you run the program again, 
the computer plays a much higher pitch. In 
general, the greater the frequency number, 
the higher the pitch. 

With the three necessary parameters, 
only combinations of musical tones can be 
created. But as you experiment with sound 
on the C128, see how many sound effects 
are accomplished by skillful manipulation 
of musical tones. Try the following: 

10 VOL 5 

20 FOR X = 1500 TO 300 STEP -20 
30 SOUND1 ,X, 1 
40 NEXT X 

The program creates a groaning sound, line 
10 sets the volume level, lines 20 to 40 form 
a FOR/NEXT loop that plays a pitch for a 
fraction of a second, then decreases the 
frequency slightly and plays another pitch. 
Because the change in frequency between 
notes is minimal, each individual note is not 
distinguishable. 

The C1 28 creates a similar effect with- 
out the FOR/NEXT loop if you use all the 
parameters in the SOUND command. Add 
this line to your program: 

50 SOUND1 ,2000,60,1,300.20,1 

The program plays two similar sounds, but 
each is created in a different way. line 50 
tells the computer to playa pitch invoice 1, 
starting at frequency 2000. The "sweep" or 
direction of the sound is downward (DIR = 



1 ) and the sweep continues downward by 
increments of 20 until a frequency of 300 is 
reached. The triangle waveform is chosen. 

This should give you some ideas about 
how powerful the SOUND statement is. You 
can eliminate loops to alter the pitch of a 
sound, because the DIR parameter handles 
that. You can alter the waveform (see MU- 
SIC on the C128) to create different sounds. 
Try changing the 1 at the end of line 50 (for 
sawtooth waveform) to a 3. Depending on 
the frequency, waveform 3 creates a brushy 
or rumbling noise. Run the program with 
waveform 3. It sounds something like an 
airplane taking off. 

MAKESOUND, on your program disk, 
lets you input values for all the possible 
SOUND parameters. Use values in the range 
for that parameter. Experiment with differ- 
ent waveforms and try other frequency 
values. The program runs until you hit RUN/ 
STOPor reset the computer. 

Notice that when declaring an upward 
sweep, the selected frequency is the high 
point of the sweep. The starting point of the 
sweep is contained in the MIN parameter. 
With a downward sweep, a negative step 
value is unnecessary, because you declare 
the sweep is to go downwards. 



91 



EXPERIMENT 

10*3 



Write a program that generates random 
sounds, using the VOL and SOUND 
commands. 

Be careful in constructing the random 
statements to multiply the seed value for 
the random number by the appropriate 
value for each parameter. Notice that 1 
should be added to some, but not all, of 
the generated numbers in order to in- 
clude the proper range of values. 

• The screen should be outlined in aster- 
isks, then use a window to scroll the 
values of the various parameters, which 
should appear in random colors. 

• Allow each sound to continue until the 
user presses a key. 



Experiment 10.3 Completed 



PROGRAMMING MUSIC 

You have learned how to create sound 
with VOI and SOUND. BASIC 7.0 has a set of 
commands that makes programming music 
easier than ever, and gives you more pre- 
cise control over the sound you create. Tell 
the computer to PLAYa note (calling the 
note by its letter name) and the SID chip 
creates the sound. Anyone who reads music 
at all can program the C128 to produce 
recognizable tunes. 

Sound is made up of vibrating air 
waves. These waves oscillate (move) at a 
certain rate (frequency). The faster the 
frequency, the higher the pitch. Two notes 
of the same frequency, played on different 
instruments, will not sound the same. This is 
because each sound has a number of differ- 
ent characteristics. A unique combination of 
these various characteristics creates the 
differing nature of sounds, called timbre. 
For example, a trumpet and a clarinet can 
play "middle C" but because of their differ- 
ent timbres, the sound will not be exactly 
alike. 

The C128 has a command, ENVELOPE, 
which lets you simulate sounds with differ- 
ent timbres. Once the ENVELOPES set, PLAY 
activates the SID chip and sound is pro- 
duced. You can also easily set the tempo of 
the music you are programming. 

ENVELOPE 

A note changes in volume several 
times during its duration, and these changes 
in volume are called attack, decay, sustain, 
and release (ADSR): 

Attack 



the rate at which a note 
reaches its peak volume 
the rate at which a note 
decreases from its peak to its 
midranged (sustain) level 
the mid-ranged volume level 
the rate at which a note 
decreases from its sustain 
level to its zero level 
Here is a diagram of ADSR. 



Decay 



Sustain 
Release 



SUSTAIN LEVEL — 
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The C128 can alter each of the four parame- 
ters of the ADSR, giving you control over the 
properties of the sound. In addition, the 
C128has 10 preprogrammed ADSR settings, 
contained in the ENVELOPE,that allow you 
to easily recreate the sound of particular 
instru ments. 

A typical form of ENVEIOPE looks like 

this: 

ENVELOPE 1,5,3,6,6,1,200 

The ENVELOPEcommand has seven 
parameters. Use a comma for default 
parameters or specify new values. 

ENVELOPE e,a,d,s,r,wf,pw 

First: Envelope number, in 

the range to 9 



Envelope 
Number 


Instrument 


Attack 


Decay 


Sustain 


Release 


Wave- 
form 


Width 





Piano 





9 








2 


1536 


1 


Accordion 


12 





12 





1 




2 


Calliope 








25 










3 


Drum 





5 


5 





3 




4 


Flute 


9 


4 


4 










5 


Guitar 





9 


2 


1 


1 




6 


Harpsichord 





9 








2 


512 


7 


Organ 





9 


9 





2 


2048 


8 


Trumpet 


8 


9 


4 


1 


2 


512 


9 


Xylophone 





9 














Second through fifth: ADSR settings 

• attack rate, in the range to 15 

• decay rate, in the range to 15 

• sustain level, in the range to 15 

• release rate, in the range to 15 
Sixth: Waveform, the type 

of wave created by the 
variety of harmonics of a note. 

0-triangle 
1 -sawtooth 

2- pulse (square) 

3- noise 

4- ring modulation 

Seventh: Pulse width (for the 

pulse, or square wave 

form), in the range to 4095 
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The pulse widths that create the most solid 
sounds fall in the middle of the range. At 
both the high and low extremes of the 
range the notes sound thin and hollow. 

ENVEIOPE is the command which con- 
trols the qualities of the sound being cre- 
ated. When you begin to program music on 
the C128, use the predefined envelopes. But 
as you experiment, take advantage of the 
power of ENVEIOPEto create exactly the 
sound you want. 

TEMPO 

Once you define the nature of the 
sound, TEMPO controls the speed of the 
tune. TEMPO has only one parameter, 
which falls in the range to 255, where 255 
is the fastest tempo. The default value is 8. 

PLAY 

Without PLAY, ENVELOPEind TEMPO 
are useless. PLAY lets you describe what 
notes to play. The PLAY command has a 
number of parameters, but only one is 
essential: the musical note. 

Try this command: 

PLAY"CDEFGAB 

Don't forget the quote mark. The keyword 
PLAY is always followed by a string of syn- 
thesizer control characters and musical 
notes. This command causes the computer 
to playa portion of a musical scale. Default 
values for all the other parameters were 
used. 

Now add another C to the end of the 
string. If you are familiar with music, you 
might expect the command to play the 
second C one octave higher than the first, to 
complete the scale. But since you haven't 
told the computer which octave to use, all 
the notes are in the default octave. In order 
to gai n more control over the PLAY state- 
ment use all the parameters. 

PLAY has two types of parameters: 
parameters relating to the notes them- 
selves, and synthesizer control parameters. 
Each parameter value is preceded by a 
letter code; the order of the parameters has 
no effect. 

NOTE PARAMETERS 

Duration-you can determine the 
relative length of each note to the others. 



Place one of the following characters before 
the letter name of the note: 

W whole note (default) 

H half note 

Q quarter note 

I eighth note 

S sixteen note 

For an introduction to written music and 
musical symbols, see the section of this unit 
entitled Musical Theory (in the Plus/4 and 
C1 6 portion of the unit). 

Playa rest (beat of silence) with R instead of 
a note, and place the appropriate duration 
letter before the R. For example, change the 
PLAY command above to: 

PLAY "Q CDEFGAB WR Q CDEFGAB 

This command plays quarter notes up the 
scale, rests for the duration of a whole note, 
then plays the quarter note scale again. 
Notice that you define the duration once, 
and it remains until you change it. In the 
example above, the quarter note duration is 
used for the first scale, but is then redefined 
as whole note. To make the second scale 
sound like the first, place a Q before the first 
note in the second scale. 

Spaces in your PLAY command do not 
affect the sound; plenty of spaces add read- 
ability. 

Create dotted notes, notes of one and 
one-half times the usual duration, by plac- 
ing a period (.) before the letter name of the 
note. If you want to switch from quarter 
notes to a dotted half note (equal to three 
quarter notes) try: 

PLAY "QC .HD QEFGAB 

Without discussing any other parameters, 
you can create simple tunes with the PLAY 
statement and duration parameter: 

10 TEMPO 15 

20 PLAY "Q CDEC QCDEC 

30 PLAY "Q EF HG Q EF HG 

40 PLAY "IGAGF QEC IGAGF QEC 

50 PIAY"Q CC HC Q CC HC 

line 50 of this little program doesn't sound 
exactly the way you expected it to. This is 
because we are still working within the 
default octave. To sound the way we expect 
that musical phrase to sound, we must 
change the octave. 
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Create sharp or flat notes by placing # 
for sharp or b for flat before the letter name 
of the note. These "accidentals", as they 




are called in standard music notation, only 
take effect for the note immediately follow- 
ing the # or b. 

SYNTHESIZER PARAMETERS 

There are five sound synthesizer 
parameters available for the PLAY state- 
ment. The characters to type and the possi- 
ble values for each parameter are listed 
below. 

SOUND SYNTHESIZER PARAMETERS 

Control Parameter Default 
Code Range Description Setting 

V 1-3 Voice 1 You are already familiar with the C128's 

three independent voices. 



O 



0-6 



Octave 



The C128 has a range of 7 octaves, about 
the same as a piano 



0-9 Envelope 



(It might help you to think of this as tone, 
or timbre). If you want to use any of the 
predefined envelopes, place Tn (where n 
is the number of the envelope you desire) 
in your PLAY statement. If you refine the 
sound with an EN VELOPEstatement, how- 
ever, be sure to use the "new" envelope's 
number in the T parameter. 



0-15 



Volume 



The volume parameter controls the volume 
note by note, if desired, rather than play- 
ing an entire song at one volume level. 



0- on 

1- off 



Filter 



Filters are used to further refine the sound 
created by PLAY statements. There are 
several types of filter, to be discussed 
later. For now, we'll leave the filter con- 
trol off in all our PLAY statements. 



These synthesizer control characters can 
appear in any order, but for the best results 
place the characters in PLAY statements in 
the order shown above. Knowing all this 
about the synthesizer controls, modify 
line 50 in the program that played "Frere 
Jacques" 

50 PLAY "QC 03G 04HC QC 03G 
04HC 

Notice you have to revert back to octave 4 
ofter changing to octave 3 for the low note. 
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Place the spaces in the PLAY strings wher- 
ever it seems most logical to you. Without 
spaces these strings are difficult to interpret. 

USING SYNTHESIZER CONTROLS 

Much of music programming on the 
C128 is a matter of personal preference. The 
only way to hear the variety of sound the 
C1 28 produces is to experiment. Begin by 
adding an envelope (Tn) parameter to each 
of the PLAY statements in Frere Jacques. 
You have already heard what the tune 
sounds like in the default (piano) envelope. 
Place T4 in line 20: 

20 PIAY"T4 Q CDEC CDEC" 

When you run the program, it plays the 
song in the flute envelope, which sounds 
very different from the piano. Change the 
T4to T8, and run the program again. This is 
the trumpet envelope. Try all the pre-set 
envelopes (see Figure 10-9). You may have 
to reset the SID chip by pressing RUN/STOP 
and RESTOREbetween each experiment. 
Notice that with some envelopes each note 
is distinct, while other envelopes run the 
sounds together. 

So far you have used only the default 
envelopes. By placing an ENVEIOPE com- 
mand in your program you can change the 
envelopes slightly or drastically to create a 
different effect. 

Add this line to your program: 

15 ENVELOPE8,3, 15,6, 1,2,512 

You have redefined the trumpet envelope 
with a shorter attack, longer decay and 
sustain, and kept the same release, wave- 
form and pulse width. Change the T4 in line 
20 to T8 and try the program now. Then 
change line 15to: 

15 ENVELOPE8,3, 15,6, 1,0 

This time you have changed the square 
waveform to a triangle waveform. When 
you run the program the sound is very 
smooth compared to previous trials. 

You can adjust the volume within your 
sound programs. Add U2 immediately after 
the quote in line 20, and U1 5 after the quote 
in line 40: 

20 PLAY'" U2 T8 



To hear the effect of the volume control, 
change the waveform in the ENVELOPE 
command back to 2 (square). Continue to 
experiment with various ENVEIOPEs and 
other synthesizer controls. Remember, 
RUN/STOP and RESTOREresets the SID chip 
each time you change a parameter. 

FILTERING 

You have experimented with all the synthe- 
sizer and note parameters except one, Xn, 
the filter command. Set the filter with a 
separate command, then turn it on within a 
PLAY statement. 

The SID chip is capable of three kinds of 
filtering: 

low-pass filters filter out sounds above a 
cutoff frequency you specify. The sounds 
are not eliminated entirely, but their vol- 
ume level is attenuated (drastically 
reduced). A low-pass filter creates solid 
sounds. 




FREQUENCY 



High-pass fi Iters filter out sounds below the 
cutoff frequency. This filter creates tinny, 
buzzing sounds. 




I 

FREQUENCY 



40 PIAY"U 15 
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A bandpass filter passes a range of sounds 
above and below the cutoff frequency and 
filters out all other sounds. 




FREQUENCY 



A typical command that defines a filter is: 

FILTER 1005,0,0,1,9 
Here is the syntax of FILTER: 

FILTERcf,lp,bp,hp,res 

First: Cutoff frequency (in the range to 2047) 

Second: Low-pass filter = off, 1=on 

Third: Band-pass filter 0=off, 1 =on 

Fourth: High-pass filter 0= off, 1 = on 

Fifth: Resonance (in the range to 15) 

The cutoff frequency values are in the same 
ratio as note frequencies. Note frequencies 
(see the SOUND command) range from to 
65535. Cutoff frequencies for the filter 
range from to 2047. The high and low 
values are roughly equivalent. For a value 
in the mid-range, choose a cutoff frequency 
of about 1000. 

Resonance affects the sharpness and 
clarity of a sound. A higher resonance gives 
sounds that reach their peak frequency 
more rapidly. 

It is possible to activate more than one 
filter at once end create special effects. For 
example, using both low-pass and high- 
pass filters at once allows all but a narrow 
range of frequencies to pass through the SID 
chip. This is called a "notch-reject" filter 



CUTOFF 
I 



FREQUENCY 



EXPERIMENT 
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Add a FilTERcommand to your program: 

11 FILTER750,1,0.0,14 

This command sets up a low-pass filter, with 
cutoff frequency of 750 and a resonance of 
14. The best way to understand how the 
cutoff frequencies relate to the notes them- 
selves is to experiment. 

Activate the filter by placing XI (Filter/ 
on) in line 20, following the T8. Run the 
program now and notice the difference 
between the sound with and without the 
filter. Try changing the filter command so it 
sets up a band-pass, or a high-pass filter, or 
a combination. 

You have learned all the BASIC sound 
commands on the C128-but you have only 
begun to experiment. The best way to learn 
the effects of sound commands, particularly 
the filters, is through trial and error. Be 
aware of the limitations of the SID chip. 
Your computer creates a vast number of 
sound effects and musical compositions, but 
it cannot accurately reproduce every sound 
in nature. 



Write a program to play the following 
song. Use as many of the synthesizer control 
characters as you wish. Notice the vertical 
bars with two dots in the middle and the 
end of the music. These are "repeat" sym- 
bols. The first time you see the symbol, it 
means go back to the beginning of the 
song and repeat it. After the second time 
through, the last half of the song is played. 
When the end of the song (and the next 
repeat symbol) is reached, go back to the 
repeat symbol in the middle of the song and 
repeat from there to the end. 

The answer to this program in Appen- 
dix B gives only the notes, as the other 
PLAY parameters are a matter of personal 
preference. 



Arkansas Traveler 



A DFEDB B A A D EEFF EFEDBADFEDEB A A D 



D C DAB-DAG F D E C D FG AO FA Q F E FEDF EC A DCDF E D E 




FEFAEFG AGFAGFEG FEOFECA DCOASDAG FDEC D 



All F'sand C's are sharp. This is signified 
in the key signature at the left of each 
staff. 



Experiment 1 0.4 Completed 
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EXPERIMENT 
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SYNCHRONIZING VOICES 

To recreate written music it is necessary 
to use more than one voice, so harmonies 
are possible. There are certain guidelines to 
remember in writing computer code to 
generate music with more than one voice. 
You will discover all the details as you 
experiment, but here is a list of some points 
you may find helpful. 

• Use different envelopes for each voice, 
at least while you are starting, so you 
can differentiate the melody and 
harmony. 

• Create an intermediary code: for each 
measure of music determine the letter 
names, and the durations and write 
them on a piece of paper. Determine if 
the octave changes within the measure, 
and if any other note or synthesizer 
parameters will be necessary. 

• Coding two voices together is not the 
same as coding two separately. In order 
for the voices to be synchronized cor- 
rectly, every note in Voice 1 must be 
matched by a note in Voice 2. If one 
voice has a long, sustained note, it 
should be placed in the PLAY statement 
first. Then code as many notes in the 
other voice as it takes to equal the dura- 
tion of the long note. 

• Play the tune at a very slow tempo first, 
to be sure the synchronization is correct. 
Then increase the tempo to an appropri- 
ate speed for the song. 



Create a program to play the following 
piece of music. Experiment with filters and 
envelopes once the synchronization is 
correct. 

To get you started, here is what the first 
PLAY statement might look like: 

PLAY"V1TOX1 04 QA.QA V2T8 XI 
.Q#F V1 TOIG V2T8 IE V1TO 
Q#F V2T8 0" 

Notice that two different voices are used. 
Voice 1 is in Envelope (TO)and Voice 2 
is in Envelope 8 (T8). The octave (4) is de- 
clared once, and remains in effect for 
the entire statement. 

Voice 1's first notes are a quarter-note 
A, and a dotted quarter-note A. The second 
voice doesn't begin until the first quarter 
note in voice 1 has finished. That note is 
the pickup note. 

Notice how it is necessary to switch 
back and forth between voices after each 
note (or notes of equivalent duration). 




Streets of Laredo 



-I 



m 



L 



Check the key signature for sharps 
before you begin. 

Experiment 1 0.5 Completed * 
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UNITI1: 



There are three ways to draw sprites on the 
C128. One is the C64 method using pokes, de- 
scribed in Unit 26 of Introduction to BASIC Part 2 . 
There are two easier ways to create sprites, both 
available only in 40-column C128 mode. The 
second way makes use of the graphic commands 
to create a shape, save it (using SSHAPE) and 
store it as a sprite with SPRSAV. The third method 
is with the C128's built-in sprite editor, accessed 
with the SPRDEFcommand. These last two meth- 
ods feature timesaving commands to make 
sprite creation much easier. Both ways are re- 
viewed in this section, and we'll use them in 
longer programs that feature sprite movement. 



C128 




Commands 
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DESIGNING SPRITES 

To review, a sprite is a movable pro- 
grammable character. They can be standard 
sprites, composed of foreground and back- 
ground color only, or multicolor sprites, with 
two additional colors available. In size, 
standard sprites can be up to 24 X 21 pix- 
els, while the pixels for multicolor sprites 
are twice as wide horizontally, so they can 
be only 12 X 21 pixels. 

The two advanced C128 ways to design 
a sprite: 

1) Creating a sprite within a program 

2) Creating a sprite with the sprite editor: 

The first method lets you use graphic com- 
mands like DRAW, BOX and PAINT to create 
sprites, while the sprite editor lets you draw 
elaborate, intricately designed sprites pixel 
by pixel. 

DRAWING A SPRITE WITHIN A PROGRAM 

There are three steps in this process: 

1) Draw a shape on the screen in a pro- 
gram using graphic commands. 

2) Save the shape with SSHAPE. 

3) Make the shape a sprite with SPRSAV. 

The first step is to write a program to draw 
the shape. Remember, since a sprite can be 
no larger than 24 X 21 pixels, size is a 
constraint in drawing a design that will be 
used as a sprite. Here is a program that 
draws a small fish. 

10 GRAPHIC 1,1 

20 COLOR 1,5 

30 CIRCLE 1,19,21 ,7,3:REM FISH 
BODY 

40 DRAW1,26,19 TO 32,17 TO 29,20 
TO 32,23 TO 26,21 :REM TAIL 

50 REM FISH FINS 

60 DRAW1, 18,24 TO 24,30 TO 22,24 
70 DRAW1, 16, 18 TO 22,13 TO 21,18 
80 DRAW1, 14,24 TO 18,27 TO 16,24 
90 REM FILL IN BODY AND EYES 
100 PAINT 1,19,21 :CIRCLEO,15.20, 1,1 : 
PAINTO,14,20 

Once the design is complete, it is then saved 
into a text string with the SSHAPEcommand. 



The fish dislocated with the upper left corner 
at screen coordinates (12,14). To capture the 
entire shape, the SSHAPEcommand should 
read 

110 SSHAPE A$,1 2,1 4,33,38 

Once the data for the shape has been stored 
in the SSHAPEstring variable, it can be 
transferred into a sprite. 

SPRSAV takes the data in the SSHAPEstring 
and puts it into the sprite data area. The 
command 

120 SPRSAV A$,1 

transfers the fish data in A$ into sprite num- 
ber 1. After you RUN the program, the 
design for sprite number 1 is complete and 
ready to use in a program, which must 
activate it with the SPRITEcommand. You 
can add another line to return to text mode 
at the end of the program, or you can press 
RUN/STOP and RESTORE. 

A word of caution: make sure the 
coordinates for SSHAPE capture the entire 
shape. If they are slightly off, the data may 
be for only part of a sprite or even a blank 
section of screen. 

USING THE SPRITE EDITOR 

The left side of the sprite editor screen 
is a 24 X 21 "block" rectangle in which you 
can design the sprite. Each block represents 
a single pixel, and the cursor on this screen 
appears as a " + . You can design your 
sprite in this work area, and the right half of 
the screen displays how the sprite will look. 
If you are designing a multicolor sprite, the 
size of the area remains the same, but the 
cursor becomes twice as wide (i.e. it be- 
comes" + + "). 

When you turn on the sprite editor (by 
issuing the SPRDEFcommand), you are 
prompted: 

SPRITE NUMBER? 

The sprite editor can hold 8 different sprites, 
numbered 1 through 8. If you have de- 
signed a sprite in a program or recalled 
stored sprite data, the sprite appears in the 
work area on the editor. Since we've al- 
ready drawn a sprite in a program and 
assigned it to sprite number 1, it appears in 
the sprite editor in the work area for sprite 
number 1. If there's no sprite assigned to a 
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number, a random pattern appears. To 
clear the pattern, press the SHIFT and CIR 
keys at the same time. 

Here are the keys to use in designing 
sprites: 



Erases the work area 
Fills in background 
color 

Fills in foreground 
color 

Fills in multicolor 1 

Fills in multicolor 2 

Move pixel (+ ) 
within work area 

Turns Automatic 
cursor movement 
OFF/ON 



3 
4 

CRSR keys 



M 



Turns Multicolor 
OFF 

| CONTROL] 71-8 Sets sprite color 
&/1-8 



ON/ 



[ RETURN | Moves cursor to start 

of next line 
I HOME | Moves cursor to top 

left corner 
X Expands sprite 

horizontally 
Y Expands sprite 

vertically 

C Copies one sprite to 

another sprite 
number 

I SHIFT] I RETURN ISaves sprite from 
work area and 
returns to SPRITE 
NUMBER? prompt 

I STOP | Returns to SPRITE 

NUMBER? prompt 
without saving the 
displayed sprite 

I RETURN I (at the SPRITE 

NUMBER? prompt) 
Exits SPRDEFmode 



Sprite design is not a mechanical activity. 
There is no formula to follow, there is no 
right way or wrong way. Play around with 
designs in the work area, and you can see 
what you are creating on the right side. 
Remember drawing sprites in Introduction 
to BASIC Part II, using POKES?We drew the 
sprite design on a grid first; that can still be 
helpful. Here is the sprite we designed at 
that time: 




It's much easier to duplicate using the sprite 
editor. Start by answering the SPRITENUM- 
BER?prompt with a 2. Then copy the picture 
of the grid above in the work area, moving 
the cursor to the filled spaces on the grid 
and pressing the 2 key to fill in those spaces 
on the editor. When you have the shape 
copied in the sprite editor, you can change 
its color with CONTROL or the C= key along 
with a number key from 1 to 8. 

In addition to standard single color 
sprites, the editor can create multicolor 
sprites. Press the M key, and whatever is on 
the screen changes to multicolor. Multicolor 
lets you design the sprite using two colors in 
addition to the foreground and background 
colors. These additional colors can be 
added by pressing the 3 and 4 keys. 

When you have completed the design 
in the work area, press SHIFTalong with 
RETURN. This causes the sprite editor to 
retain the sprite under that sprite number. It 
will stay there as long as the computer 
remains on. To exit the sprite editor, press 
RUN/STOP to get the SPRITENUMBER? 
prompt. At the prompt, press RETURNwith- 
out entering a number. This puts you back in 
BASIC text mode. 
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(a) Duplicate this shape as sprite number 3, 
a multicolor fish sprite. Remember to 
press M before drawing the design. The 
second color can be selected with CON- 
TROLor CIl and a number key from 1 to 
8. Press SHIFT and RETURN when you 
are done. 



(b) Draw another shape as sprite number 4. 
Draw it on a 24 X 21 block grid first, then 
draw it on the work area. Press SHIFT 
and RETURNto store it in the editor. 



74 columns 



Experiment 11.1 Completed 
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SAVING DATA FROM THE SPRITE EDITOR 

Saving sprite data is relatively easy. 
You can save a block of data for eight 
sprites from the editor at a time. Issue the 
BSAVE command in direct mode, giving the 
set of sprite data a name. A command that 
saves sprite data looks like: 

BSAVE "FISH SPRITES", BO, P3584 TO 
P4096 

In addition to the name and memory bank 
number (BO), two additional numbers, 
P3584TO P4096, correspond to the area in 
the C128's memory where sprite data is 
stored. 

After storing the sprite data, get a 
DIRECTORYof what's on the disk. The sprite 
data name is listed as a program. To recall 
the sprite data, use BIOAD to load the bi- 
nary file. Always load the sprite data BE- 
FOREgoing to the editor. An acceptable 
form of the command to issue is 

BLOAD "FISH SPRITES" 

although you may need to include optional 
parameters in the command specifying 
drive, device or memory bank number: 

BLOAD "FISH SPRITES", DO, U8, B1, 
P3584 

After the sprite data has been recalled, 
issue SPRDEF.You'll find the sprites are 
already contained in the work areas for 
their respective numbers. 



The parameters are as follows: 



First: 

Second: 
Third: 



Fourth: 



Fifth: 



Sixth: 



Seventh: 



Sprite Number (1 through 8), 
used to identify the sprite. 
Turns sprite ON (1) or OFF (0). 
Color (1 through 16, 
corresponding to the color 
numbers). 

Priority, meaning whether the 
sprite goes in front of or behind 
objects on the screen. is in 
front of, 1 for behind. 
Normal horizontal size (0) or 
expands sprite horizontally (1). 
Normal vertical size (0) or 
expands sprite vertically (1). 
Multicolor sprite (1) or standard 
single-colored sprite (0). 




When issuing the SPRITEcommand, set the 
last three parameters to make the sprite 
look how you intended when creating it. 
Pay attention to the multicolor setting, since 
a sprite presented in the wrong mode can 
be unrecognizable. 

When you give the second parameter a 
value of 1 , the sprite appears on the screen. 
It remains on the screen until you either 
reissue the SPRITEcommand for that sprite 
with a value of or press RUN/STOP and 
RESTORBimultaneously. 

Once the sprite is turned on, colors 
selected, etc., you are ready to move it 
around the screen. 



TURNING ON A SPRITE-THE 
COMMAND 



SPRITE 



Once a shape has been drawn and 
stored using the sprite editor or in a string 
variable by SSHAPEand SPRSAV, it must be 
turned on with the SPRITEcommand so it 
can appear on the screen. SPRITEfeatures 
seven different parameters, for example: 



SPRITE 1,1,5,0,0,0,0 
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To activate the sprites created in 
this section, issue the following SPRITE 
commands: 

SPRITE 1,1,5.0,0,0,0 

activates the fish sprite drawn with graphic commands in purple 

SPRITE 2,1,9,1,0,0,0 

activates an orange fish sprite 

SPRITE3,1, 7,1, 0,0,1 

sets the multicolor fish sprite with the secondary color of blue 



MOVING SPRITES 

C128 BASIC 7.0 features a new com- 
mand that makes moving sprites around the 
screen easy. MOVSPR can place a sprite at a 
given location on the screen, move the 
sprite a specific distance and angle from the 
pixel cursor or move it continuously at dif- 
ferent speeds. There are four forms of 
MOVSPR: 

1) Position the sprite on the screen 

MOVSPR 1,20,100 Places sprite 
number 1 at 
column 20, 
row 1 00 

First parameter: Sprite number (1-8) 
Second parameter: X-coordinate 
Third parameter: Y-coordinate 

2) Move sprite a distance defined by rela- 
tive screen coordinates (see Appendix 

A) 

MOVSPR 3, - 30, + 40 Moves sprite 3 
to the left 30 
pixels (- 30) 
and 40 pixels 
down (+40), 
relative to the 
current pixel 
cursor position 

First parameter: Sprite number (1-8) 
Second parameter: Relative dis- 
tance for X-coordinate 
Third parameter: Relative dis- 
tance for Y-coordinate 

3) Move sprite a given distance and angle 
from pixel cursor 



MOVSPR 2,50;90 Moves sprite 2 a 

distance of 50 pixels 
from the cursor at a 
90-degree angle 

First parameter: Sprite number (1-8) 
Second parameter: Distance 
Third parameter: Angle (0-360) 

4) Move sprite continuously at a certain 
angle and speed 

MOVSPR 6,45#15 Moves sprite 6 at 
the highest speed 
(15) at a contin- 
uous 45-degree 
angle 

First parameter: Sprite number (1-8) 
Second parameter: Angle (0-360) 
Third parameter: Speed (0-15) 

To move a sprite in a program, first turn the 
sprite on with the SPRITEcommand. Then 
you can use MOVSPR. 

Assuming you have sprites in the sprite 
editor (right now, unless you've turned the 
computer off or reset it, you should have 
sprite numbers 1 through 3 already de- 
signed), here is a program that activates 
two sprites and places them on the screen. 
Notice you don't need to enter a graphic 
mode to use sprites. Type in this program 
and let it stay in memory; we'll be adding to 
it through the rest of this section. 

10 COIOR 0,1 :COLOR 4,1 
15 GRAPHIC 1,1 
20 SPRITE 1.1,5,1,0,0,0 
30 SPRITE3,1, 7,0.0,0,1 
40 MOVSPR 1,200,150 
50 MOVSPR 3.100,100 
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thing happen" as a result of or response 
to the collision. A typical form of this com- 
mand is 



This positions the two sprites on the screen. 
Notice how the white and blue fish appears 
in front of the program lines; this is because 
its priority (defined by the fourth parameter 
of SPRITBn line 30) is O. The purple fish 
swims behind the letters, because it has a 
priority of 1 . Make sure that the sprite num- 
bers in the MOVSPR command are the same 
sprite numbers used in the SPRITEcommands. 
For a little more action, add these lines: 

60 MOVSPR 1,270#4 
70 MOVSPR 3,200#3 

See the fish continuously move from their 
starting positions (set in lines 40 and 50) and 
wrap around the screen. To stop them and 
clear the screen, press RUN/STOP and RE- 
STOREat the same time. The program and 
sprite data remain in memory. 

Not everything moves in a consistently 
straight line. Use MOVSPR and a little exper- 
imentation to create wavering movement, 
or a circular pattern, or change speeds or 
whatever. For example, adding a loop can 
make a sprite change direction or speed 
slightly or noticeably. Add these lines to 
the last program to see a little variable 
movement: 

54 A= 100 

55 A=-A 

75 SLEEP3 

80 MOVSPR 1,270#10 

90 MOVSPR 3,250 + A#2 
100 SLEEP3 
110 GOTO 55 

One fish will be changing speeds notice- 
ably, while the other will be bouncing all 
over the screen in all directions. With some 
experimentation, you can capture the exact 
movement you want. After you've finished 
experimenting with movement patterns, 
use NEW to remove the program from 
memory. 

THE COLLISION COMMAND 

When working with sprites, their paths 
sometimes cross. When this happens, you 
can let them continue unaffected, or do 
something as a result of the collision. COLLI- 
SION detects a sprite coming into contact 
with another object and transfers execution 
to a subroutine designed to "make some- 



COLLISION 1,1000 

First parameter: 

Defines type of collision 
1 -sprite-to-sprite 

2- sprite to display data 

3- light pen (40 columns only) 

Second parameter: 

Line number for subroutine 

COLLISION with no line number following 
turns off collision detection. 

Assume the program sets two sprites on 
a collision course, as in the following: 

5 GRAPHIC 1,1 
10 COLOR 0,1:COLOR 4,1 
20 SPRITE 1,1,5,1,0,0,0 
30 SPRITE2,1, 7,0,0,0,1 
40 MOVSPR ^,SO, 100 
50 MOVSPR 2,200, 1oo:MOVSPR 
2,270#2 

The COILISION command can be added in 
the following routine: 

60 COLLISION 1,100 

70 GOTO 60 
100 COLLISION 1 
110 SPRITE 1,0,5,1,0,0.0 
120 RETURN 

When the sprites touch, execution jumps to 
the collision subroutine in line 100, which 
first turns off collision detection, then sprite 
number 1 is removed. Then execution is 
returned to the line where the collision was 
detected (line 60). 

Another type of collision, sprite with 
display data (anything drawn on the screen, 
such as a BOX), works Similarly. Change 
COLLISION 1 in lines 60 and 100 to 2 and add 
another line to the program: 

15 BOX 1,0,0,10,190 

Change the subroutine beginning at line 100: 

100 COLLISION 2:C =C + 1:IF C>16 

THEN C= 1 
110 COLOR 1,C:BOX1,0,0, 10,190 
120 RETURN 
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EXPERIMENT 

11-2 



The sprites touch with nothing happening, 
since there is nothing set up to detect that 
collision. But when the sprite hits the object 
on the screen (the box drawn in line 15), the 
collision routine goes into effect. As a result 
of the collision, the box is redrawn in 
changing colors. 

Working with collision routines is 
sometimes frustrating, because it may be 
difficult to get the subroutine to do exactly 
what you want, and collision detection and 
reaction isn't as precise as you need. 



(a) Design two multicolor fish sprites (one 
facing left, one facing right) using the 
sprite editor and assign them to sprite 
numbers 5 and 6. Using whichever 
method you prefer, create a sprite 
featuring water bubbles and assign it to 
sprite number 7. You should have 
sprites numbered 1,2, 3, 4, 5, 6 and 7. 




(b) Copy the water bubble sprite (number 
7) to sprite number 8, using the C com- 
mand with the sprite editor. Make slight 
changes (add bubbles or change place- 
ment) and make the sprite a different 
color from sprite 7. Store all the sprites 
using the BSAVE command. 
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(c) IOAD the program FISHTANK. This 
provides a backdrop for an aquarium. 
Use your fish sprites to populate the 
aquarium. Write a program to move the 
fish sprites around the aquarium at 
changing speeds and slightly varying 
directions. There are already movement 
routines in the program for sprites num- 
bers 1 and 7 in lines 700 on. Notice how 
the bubbles float straight upward. With 
all the elements in place, the graphic 
background picture and your moving 
sprites, you should have a thriving 
aquarium. 

Note: Additional sprite data may be found 
on the binary file on your program disk 
called TROPICAL If you load this file, issue 
the SPRDEFcommand to see the sprites in 
the editor. 
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APPENDIX 

A 



APPLYING RELATIVE COORDINATES 

Most times when we issued com- 
mands, we used absolute screen coordinate 
values. However, there are other ways to 
specify screen locations using relative 
coord i nates. 

Many commands, including IOCATE, 
DRAW, CIRCLE, BOX and PAINT need a 
starting position. Two familiar ways of 
defining this position are: 

a) By omission, in which case it defaults to 
the 'current position'. 

b) By stating its screen coordinates. 

There is a third way of defining the starting 
position by giving the coordinates relative 
to the current cursor position. This is done by 
either of two methods: 

Rectangular displacement: Specify 
how many pixels to move right, and how 
many down. The numbers preceded by + 
or - indicate the displacement is relative. 
Compare these two sequences: 

CIRCLE 1,30,40,20 

(Draws circle centered at (30,40) 

IOCATE 100,100 
CIRCLE 1, + 30, +40,20 

(drows circle centered at 130,140) 
POLAR DISPLACEMENT: 

Here you specify how many pixels to 
move, and in which direction. The direction 
is given in degrees clockwise from up-like 
a compass bearing. The distance comes first 



and is separated from the direction by a 
semicolon (;). For example, 

LOCATE 100,100 
CIRCLE 1,50;90,20 

TURTLE GRAPHICS 

Here's a special appl ication that lets 
you see a way to use relative coordinates in 
drawing graphics. "Turtle Graphics" is the 
name used for an alternate way of drawing 
computer pictures. All the examples in 
these books (prior to now) used absolute 
screen coordinates. The "pencil" which 
drew the picture was directed to a given set 
of coordinates in the display area and made 
to draw a line to another given position. 
Turtle graphics makes use of the relative 
screen coordinates in fashioning pictures. 

In Turtle Graphics, the navigator, or 
"Turtle", moves based on the current loca- 
tion. It doesn't consider screen coordinates 
or fixed directions like left, right, up or 
down. All it understands are four basic 
commands: 

Raise or lower your pencil 
Move so many steps forward, 
drawing a line of the pencil is down 
Turn so many degrees clockwise 
Turn so many degrees counter- 
clockwise 

Turtle instructions to draw a square wide 
sides of 100 units are: 

lower pencil 
Go 100 steps forward 
Turn 90 degrees right 
Go 100 steps forward 
Turn 90 degrees right 
Go 100 steps forward 
Turn 90 degrees right 
Go 100 steps forward 

Of course, the position of this square 
depends on where the turtle starts and 
the direction the turtle is facing at the 
beginning. 

Many kinds of drawings are easier to 
make with turtle graphics than with fixed 
navigational systems. For example, you 
might have a set of turtle instructions to 
draw some complicated shape like a tree or 
a symbol in a circuit diagram. Simply by 
changing the starting conditions, you can 
draw the object many times over, in various 
positions and orientations. A simple modifi- 
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cation will change the scale of the picture to 
anything you need. 

The C16, Plus/4 and C128 have no built- 
in support for turtle graphics, so your pro- 
gram must translate the turtle's instructions 
into ones suitable for fixed navigation. 

First, let's define some variables. 

XI and Y1 are the current screen coor- 
dinate position of the turtle (somewhere in 
the display area). 

The current direction, D1, is expressed 
as a compass bearing between and 360 
degrees. degrees is North or Up, 90 
degrees is East or Right, and so on. 
The value of P1 will indicate the state of the 
pencil, as follows: 

Pencil up : PI is (move cursor without 
drawing) 

Pencil down: PI is 1 (draw on screen) 

We can now express the turtle instructions in 
terms of these commands: 

• Raise Pencil: PI = 
lower Pencil: P1 — 1 

• Turn N degrees right: D1 — 01 + N: IF 
D1>- 360 THEN - 0-360 

• Turn N degrees left: 01 - D1 - N: IF Dl <0 
THEN D1 = D1 + 360 

Move Fl steps forward: 

We assume that a step is the same size as a 
pixel. This lets us calculate the turtle's new 
position (XX, YY) by using the following 
formulas: 

DO + 01 * 1(7180 REM CONVERTS TO 

RADIANS 
XX = XI + F1 * SIN(DD) 
YY = Y1 + F1 * COS(DD) 

Next, we draw a line from the old position 
to the new one, using P1 to select fore- 
ground or background. 

Finally, we copy the new position into 
X1 and Y1. 

The move is the only step sufficiently 
complicated to need a subroutine, so here 
it is: 

1000 REM ORGANIZE TURTLE'S MOVE 
FORWARD 



1010 REM MOVE F1 PIXELS IN 

DIRECTION 01, STARTING AT 
X1,Y1 

1020 DO = 01 * /180 

1030 XX =XI + F1 * SIN (DO) 

1040 YY = Y1-F1 * COS (DO) 

1050 IF F1<0 OR X1 <0 OR Y1 <0 OR 

XX<0 OR YY<0 THEN 1080 
1060 IF X1 >319 OR XX>319 or Y1 >199 

OR YY>199 THEN 1080 
1070 DRAW P1,X1,Y1 TO XX, YY 
1080 X1 =XX:Y1 = YY 
1090 RETURN 

Once this subroutine has been provided, 
turtle graphics are easy to translate into 
BASIC. For instance, you can draw a penta- 
gon by writing 

10 COLOR 0,1 

20 GRAPHIC 1,1 

30 COLOR 1,2 

40 XI = 200: Y1 = 160 

50 01 = 18:P1 = 1 :REM START AT 

(200,160) FACING NORTHEAST 

WITH PEN DOWN 

60 FOR J = 1 TO 5 

70 F1 = 50: GOSUB 1000: REM 

FORWARD 50 UNITS 
8001 = 01-72: IF 01<0 THEN 

01 =01 +360 
90 NEXT J 
100 GETKEY A$ 
110 GRAPHIC 
120 END 

A few modifications can produce major 
differences. For instance, if you increase the 
number of steps in line 60 to 8, and change 
the angle in line 80 to 45 (D1 - D1-45), you 
will get an octagon. If you now change the 
45 to 135, the figure becomes an 8-pointed 
star. 

To get a more complex figure, go back 
to the original pentagon, change the num- 
ber of steps in line 60 to 100 and the angle in 
line 80 to 73. You will get a rotated ri ng of 
pseudo-pentagons, all of the same size. 

To make the shape decrease in size as 
it rotates, try 



60 FOR J = 100 TO 10 STEP -0.5 

and 

70 Fl =J: GOSUB 1000 

In general, turtle graphics give interesting 
and unexpected results. This sequence, for 
example, leads to a spiral disappearing into 
the distance: 

40 XI -50: Yl - 169 
50 01 =0:PI =1 
60 FOR J=l TO 200 
70 Fl = 0.0003*(XI + Yl) 2:GOSUB 
1000 

80 01 = 01-30: IF 01<0 THEN 

01 = D1 +360 
90 NEXT J 

Keeping the same subroutine (lines 1000- 
1070), you can design a program that lets 
you directly control the drawing of each 
step. You can write a program that lets you 
input values for P1 (pencil up or down), D1 
(direction in degrees) and 11 (length). When 
you RUN this program, be careful that you 
don't use unacceptable values for screen 
coordinates. An error trap comes in handy 
here. Here is the program (not including the 
movement subrouti ne ): 

5 TRAP 2000 

10 COLOR 0,7:COLOR 1,2 

20 GRAPHIC 2,1 

30 XI = 160: Yl = 100:PRINT 

"STARTING POINT IS (160,100)" 
40 DRAW l,XI,YI 
45 REM SET VALUES 
50 PRINT "PRESS Q TO QUIT, 

ANYTHING ELSE TO CONTINUE" 

60 GETKEY A$:IF A$ = "Q" THEN 

120 

65 PRINT ' 1 CURSOR DOWNl fCDl 
fCDlfCDl fCDl" 

70 INPUT "PENCIL UP (0) OR 

DOWN (l)";PI 
80 INPUT "DIRECTION";D1 
90 INPUT "LENGTH";F1 
100 GOSUB 1000:REM GO TO THE 

DRAWING SUBROUTINE 

110 GOTO 50 



120 END 

2000 PRINT "TRY AGAIN": GOTO 70 

Note: ICDI in line 65 refers to the DOWN 
CURSOR, so press CURSOR DOWN 5 times. 

This is just one application using rela- 
tive coordinates instead of absolute values 
to plot graphics. Neither form is better than 
the other. Absolute may be easer to visual- 
ize because it's more in line with the way 
we view the screen; relative coordinates 
offer different advantages, such as continu- 
ity in plotting lines and drawing. Which 
form to use depends on which you are more 
comfortable with and which is more suited 
to the specific programming task. 
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APPENDIX 

B 



ANSWERS TO EXPERIMENTS 

These program listings are not the only solutions, nor are they necessarily the best. But they 
do solve the problems presented in the experiments using the relevant commands. Your own 
answers may differ and still be correct. 

The following program listings are printed as they appear on your screen. Spaces in strings 
should be typed. Here is a list of control characters you will see in these listings, and the 
keystrokes which created them. 



Symbol 


Keystrokes 


B 


HOME 


□ 


SHIFT and CLR/HOME 


a 


Cursor down 


n 


Cursor right 


a 


Cursor up 


D 


Cursor left 


□ 


CTRL and RVS ON 




CTRL and RVS OFF 



Several other symbols, such as , and ■ represent color changes; these are 

activated by pressing and holding the CTRI key and pressing a number key (not from the 
numeric keypad on the 128). You can substitute colors at any time for an arrangement 
more pleasing to you. 



UNIT:1 



Experiment 1.1 

30 COLORS X 
40 

45 BLEEPS 
^0 LOOP 
66 DOUHTILM=l 
?0 COLORS ,x 
*a :v=x-i 
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SLEEP 1 
90 LOOP 

100 DO WHILE X<ie PRINT" CHANGING COLORS" 

110 COLORS,* 

120 

123 SLEEP 1 
130 LOOP 
140 END 

REflDV* 



Exp*rfm*n1 1.1/4 



1Q X«l 

20 D0WHILEX<16 
25 PRINT" ** 
30 CGL0R4,X 
40 K*=X+1 

43 FOR N*l TO 300 ; NEXT N 

50 LOOP 

60 DQUNTILX-1 

70 COLOR©, X 

80 X*X-l 

65 FOR N«l TO 500= NEXT N 
90 LOOP 

100 00 WHILE X<16> PRINT" CHANGING COLOftS" 

119 COLORS K, 4 

120 X=X+1 

125 FOR N-l TO 5©0=NEXT N 
130 LOOP 
140 END 

READY. 



Exp«rim«nt 1.3 



FOOD TVPE" 



C 3 BEVERAGES'* 



1 CLR=AA*= 
10 K=l 

20 REM***** SET UP MENU SCREEN ***** 
30 PRINT" 7T* 

40 PRINT" CALORIE COUNTER" 

30 PRINT" » 

60 PRINT"" 
70 PRINT " 
80 PRINT** 
90 PRINT" 
95 PRINT** " 
100 PRINT" 
103 PRINT"" 
lie PRINT" 
115 PRINT" " 
12© PRINT" 
123 PRINT" 11 
130 PRINT" 
133 PRINT"" 
140 PRINT" 
145 PRINT** " 
_1S0__PRINT H 

155 PRINT"" 

156 PRINT" 

157 PRINT*"' 

158 REM***** MOVE CURSOR * DETERMINE CURSOR POSITION RNO CATEGORY 
160 PRINT" MOVE THE CURSOR TO VOUR SELECTION, " 

165 PRINT" THEN HIT RETURN" 

167 C0L0R5,1 

180 OOUHTU_m*-CHR*<:i3) 

190 GETR1*= IFfil*="" THEN 22® 



C IBRERKFftST FOODS w 



C I LUNCH FOODS" 



C 1DINNER FOODS" 



C I DESSERTS" 



C ISNflCKS RNO CFiNDV 



JC ] SPREADS" 



C 3 EXIT 
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200 


I Fh 1 * = 




AND X<>8 THEN £E0IN RR$~RR4w "KUS]" 


202 


K-X+l 










204 


i G0T02 










206 


: SEND 










£10 


IFR1*= 


..r T , 


AND XOl THEN 


BEGIN RR*=LEFT*.:RRt, '.UEN 


215 


X=X- 1 










218 


: BEND 










228 


PRINT i 


flfl*" " FOR I = lT01t)kJ-NE.:^r PRINT 


HHit" " 


250 


LOOP 










240 


Rth***** PRINT OUT CHTEGORV 1 INFORMATION ***** 


250 


lFtt=l 


I HEN EJELOIN- 






260 


print"!!" 








270 


PRINT" 




BEVERfiGLS" 




260 


PRINT" 










290 


PRINT" 




BEVERROE 


SERVING CALORIES" 


300 


PRINT" 








- 


318 


PR I NT " 










320 


PRINT" 




RLE 


12 OUNCES 


150" 


330 


PRINT" 




BEER 


12 OUNCES 


150^' 


340 


PRINT " 




BEER LITE 


12 OUNCES 


105" 


350 


PRINT" 




BRRNDV 


1.5 OUNCES 


73" 


360 


PIvLNf" 




COCOA 


S OUNCES 


i'45" 


370 


PRINT" 




CHRMPRGNE 


3.5 OUNCES 




400 


PRINT" 




CDFFGE > TER 


& OUNCES 


2" 


430 


PRINT' 1 




LEMONADE 


6 OUNCES 


105" 


440 


PRINT " 




MART INI ,GRY 


OUNCES 


140" 


450 


PRINT" 




MILK, SKIM 


S OUNCES 


120" 


460 


PRINT" 




MILK, WHOLE 


IS OUNCES 


150" 


470 


PRINT " 




orange J'J] ce 


e OUNCES 


120" 




PRINT" 




-:ODH, COLH 


12 OUNCES 


145" 


510 


PRINT " 




SOCJft DIET 


12 OUNCES 


1 " 




PRINT" 




WH1SKEV 


1.5 OUNCES 


105" 




PRINT" 




NINE, DRV 


5,5 OUNCES 




540 


PRINT "PRESS RETURN WHEN 


VGU RRE RERDV 


TO" 


545 


INPUT" 


CO NT I IMI.'F " , G*-BFND 






55« 




■* F'KI NT OUT CRTLGDRV 2 I N F n Rfl AT I N ***** 


560 


if 


THEN 00 TO 1 






r. t .. r . 


PEN*** 


** 


PKIHI OUT CHTRi.-.iOPV ^: f HF GRNRT I uN + 






TMLN BEG 1 N 1 






575 


PRINTS" 










PRINT" 




BREAKFAST FOODS" 




590 


PRINT" 












PRINT" 










I- 1 '.1 


PRINT" 




FOOD TVPE SERVING SIZE CALORIES" 


620 


PRINT" 










630 


PKllNT" 




BRCClN 


2 STRIPS 


■'^ " 


640 


PRINT" 




CEREAL , DRV 


6 OUNCES 


?0" 


650 


PRINT" 




EGG MCMUFFIN 


1 


3Si" 


660 


PRINT" 




ENGLISH MUFFIN 


1 


166" 


670 


PRINT" 




{ N I TH BUTTER} 11 






680 


PRINT" 




FRIED EGO 


1 


115" 


698 


PRINT" 




ORTMERL 


2^3 CUP 


f::7" 


7&£i 


PRINT" 




OMLET .h CHEESE 


6 OUNCES 


340" 


710 


PRINT" 




PANCAKES 


3 


1^0" 


72f£F 


PRINT" 




ROLL, BUTTERED 


1 


260" 


.740, 


prinj: 1 . 




SBt iSRCie 






750 


PRINT- 




WAFFLES 


i 


210" 


760 


PRINT " 










770 


PRINT" 


FRFSS RETURN MHEN 


VOU RRE RERDV 


TO " 


730 


INPUT " CONTINUE ";g* 






790 


SEND 










S00 

S05 


IF X=£ 


THEN GOTO I 






RLN***** 


l-h-JNl 0U1 CRILUOkV :.: INT UPNH 1 1 ON ***** 


610 


IF X=3 


THEN PEC IN 






820 










S30 


PRINT" 




LUNCH 


FOODS" 




840 


PRINT" 










650 


PR INT lh 










S60 


PRINT" 




FOOD ITEM 


SERVING SIZE 


CRLORIES " 


870 


PRINT" 










PRINT*' 




BOLGGNA 


1 SANDWICH 


.^:l::: J ' 


390 


PRINT" 




EIJF'OER r ROLL 


4 OONCES 


51S" 





PR I HT hl 


Gun h~ ■ i j r • ~ [~ ' ~- 1~ • 


■■ 






!^ 1 y 


PR I NT " 


rij TI I II TTU 

L<r1 1L1 HI In 




OUNCE 8 






PR I HT " 












RR 1 N 1 " 


r i up ^.Pri-jnu r ph 

1 _ \. ~ 1 lf *\ 'fcM l^t. n 


1© OUNCES 


670" 


■H4S 


FRIHT" 


GRILLED CHEESE 


I 


SANDWICH 


350 " 


^50 


PR I NT 11 




4 


OUNCES 


41S " 


S60 


PRI NT" 


HAM SANDW I CH 


1 


SANDWICH 


350" 


970 


PRINT" 


HAM & CHEESE 


1 


SANDWICH 


450" 


9S0 


PRINT" 


HOT DOG., ROLL 




1 


231" 




PRINT" 


PIZZA 


i 


SLICE 


145" 



LOOO PR I NT " ROAST SEER i SANGWICH 429" 

1010 PRINT 11 " 

1020 PRINT"PRESS return WHEN YOU ARE READY TO" 
1030 INPUT" CONTINUE" ;G* 
1040 BEND 

1050 IF *=3 THEN GOTO 1 

1055 REN***** PRINT OUT CATEGORY 4 INFORMATION ***** 
I0e0 IF K=4 THEN BEGIN 
1070 PR I NT "71" 
1000 PRINT"" 
1090 PRINT" 
1095 PRINT" 
1100 PRINT" 
1110 PRINT 11 
U£0 PRINT" 
1130 PRINT" 
1140 PRINT" 
1150 PRINT" 
UfcO PRINT" 
1170 PRINT" 
1100 PRINT" 
1190 PRINT" 
1200 PRINT" 
1210 PRINT" 
1220 PRINT" 
1200 PRINT" 
1240 PRINT" 
1250 PRINT " 
12£0 PRINT" 
1270 PRINT" 
12S0 PRINT " 
1230 PRINT"" 

1000 PRE NT "PRESS RETURN WHEN VOU RRE READY TO " 
1310 INPUT ''CONTINUE'" > G* 
1320 BEND 

1330 IF^4 THEN GOTO 1 

1335 REN***** PRINT OUT CATEGORY 5 INFORMATION ***** 
1S40 IF i<=5 THEN fcEGIN 
1350 PRINT "71" 

iS^USfclNr" OEfc'SERTS" 
1S7G PRINT" 11 



1 3S0 


PRINT" 


DESSERT 


SERVING SIZE 


CALuRlES" 




PRINT" 












PRINT" 


BANANA SPLIT 


1 




540" 


1410 


PRINT 11 


BROWNIE 


1 






1430 


PRINT" 


CHEESECAKE 


5h 


7 OUNCES 


400" 


1440 


PRINT " 


CHOCOLATE CAKE 


1 


SLICE 


250" 


1460 


PRINT- 


COFFEE CAKE 


1 


SLICE 


2S0" 


1470 


PRINT" 


COOKIES 


4 




20O" 


1400 


PRINT" 


DANISH PASTRY 


1 




575" 


1430 


PRINT" 


ODNUT, FILLED 


1 




225" 


1500 


PRINT" 


DONUT , PLAIN 


1 




100" 


1520 


PRINT" 


ICE. CREAM 





ounces 


270" 


1530 


PRINT" 


.J EL. LCI 


s 


OUNCES 


140" 


1540 


PRINT" 


PIE, FRUIT 


1 


SLICE 


345" 


1550 


PRINT" 


PIE, PECAN 


1 


SLICE 


495" 


15£0 


PRINT" 


F IE .■ PUMPKIN 


1 


SLICE 


275" 


15F0 


PRINT " 


PUDDING j 


s 


OUNCES 


305" 


isee print" 


CHOCOLATE" 








159S 


PRINT" 


SHERBERT 




OUNCES 


270" 



i SO F"R 1 N [ " " 

1610 PR I NT "PRESS RETURN UHEN VOU ARE READY TO " 
1 £20 I NPU T " CONTI NUE 1 v .: G* 
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DINNER FOODS'" 
FOOO TYRE SERVING SIZE CALORIES" 



BEER ROT PIE 8 OUNCES 5S0 11 

BEEF STERK 3 OPJNCES 330" 

SEEP STROGRNOFF S OUNCES 500" 

BLUEFISH 3 OUNCES 135" 

6URRIT0.-BEEF £.5 OUNCES 4££" 

CHICKEN POT PIE S OUNCES 535" 

FRIED CHICKEN 1 NINO 151" 

FISH £ CHIPS 7 DUNCES Sr'G" 

FISH STICKS 4 180" 

FRIED SHRIMP 3 DUNCES 130 JI 

LAME CHOP 3. 1 OUNCES 360" 

M AC A RON I & O OUNCES 430" 
CHEESE" 

PORK CHOP 2.7 OUNCES 305" 

POT ROAST 2.5 OUNCES 140" 

SPAGHETTI WITH O DUNCES 260" 
SAUCE" 



16S0 BEND 

1640 IF >i=5 THEN GOTO 1 

i£45 REM***** PRINT OUT CATEGORY £ INFORMATION ***** 

i£50 IF y.^G THEN BEGIN 



1660 


PRINT":]" 










1670 


PRINT" 


SNACKS 


AND 


CANDY" 




16S0 


FEtuT " 


. 








lfc^O 


PRINT" 


SNACK 


SERVING 


CALORIES" 


I7@ti 


PRINT - 


- - - 


- " 


■ - ™ 




I? 10 


PRINT" 


CANDY, HARD 


1 


OUNCE 


110" 


1720 


PRINT" 


CARAMEL 


1 


OUNCE 


115" 


1730 


PRINT" 


CHOCOLATE, BAR 


1 


OUNCE 


145" 


1740 


PRINT" 


FRENCH FRIES 


It 




135" 


1750 


PRINT" 


FUDGE 


1 


OUNCE 


115" 


1750 


PRINT" 


MARSH MALLOWS 






25" 


1770 


PRINT " 


NUTS, DRV 


1 


OUNCE 


160" 


17S0 


PRINT" 


ROASTED" 








1790 


PRINT" 


NUTS, MIKED 


1 


OUNCE 


ISO " 


1S0O 


PRINT" 


ONION RINGS 


1 


PORT ION 


300" 


1S10 


PRINT" 


POPCORN, 


B 


OUNCES 


85" 


1320 


PRINT" 


BUTTERED" 








1S30 


PRINT- 


POPCORN, 


S 


OUNCES 


25" 


1S40 


PRINT" 


UN&UTTERED" 








1S50 


PRINT" 


POTATO CHIPS 


1 


OUNCE 


150" 


I860 


FRI HT" 


PRETZELS 


I 


OUNCE 


1 10" 


1070 


PRINT" 


SUGAR 


1 


TBSP- 


45 H 



1SS0 PRINT"" 

1390 PRINT " PRESS RETURN WHEN YOU ARE READY TO " 
1900 I NPUT " CONT I NUE " , O * 
ZOO0 SEND 

2010 IF 1>!=6 THEN GOTO 1 

2015 PEN***** PRINT OUT CATEGORY 7 INFORMATION ***** 
2020 IF X=7 THEN BEGIN 
2039 PRINT":!" 
2640 PRINT" 
2050 PRINT" 
2060 PRINT" 
2270 PRINT" 
2675 PRINT"" 
2080 PRINT" 
20S5 PRINT" " 
2090 PRINT" 
20^5 PPT NT " " 
2100 PRINT" 
2105 PRINT-" 
2110 PRINT" 

2115 PRINT" " : PRINT"" •■ PRINT" 

2120 PR I NT "PRESS RETURN WHEN YOU ARE READY TO " 
2130 INPUT "CONTINUE* 1 ;G* 
2140 BEND 

2150 IF K=7 THEN GO TO 1 
2i60 IF X>7 THEN PRINT'TJ" END 



UNIT:2 



Experiinerit 2,1a 



10 input "LOAN AMOUNT" , A 

IFA;:i00ORA>10OOTHEh^OOSUBlO0 ■■ GOT0 1.3 
'50 INPUT h ' PERCENTAGE INTEREST RATE" > P 
*5 PRINT" " 

40 i-a*':r,''io0> 

50 PRINT USING" INTEREST FOR ONE VEAR EQUALS**####. *#" 
^O PRINTUS ING" TOTAL PAYMENT EiTrL.'Hj.. c ; #^#tttt4* . *Nt" ; A+I 



SPREADS'* 

TYPE SERVING SIZE CALORIES'* 



BUTTER 1 TBSP. 100" 

JAM 1 TBSP\ 55" 

MARGARINE 1 TBSP. 100" 

PEANUT SUTTER 1 TESP. 95" 



PRlNTUSINO"Efl£H MONTHLY PAYMENT EQUALS . tftt" I M 

30 END 

Ida PRINT " LOANS flVA I LPBLE BETWEEN JriuU HMD *10£O" = RETURN 



Experiment 2* lb 



5 PRINT" 3" 

2Q PRINT " BANK STATEMENT " 

30 PRINT " '* 

46 PR IMT" " 



53 INPUT "ENTER BEGINNING BALANCE" ; BB 
55 UMBEt 
£0 PRINT" " 

70 INPUT" I S THIS TRANSACTION R WITHDRAWALS OR ft DEPOO IT CP > " ; T* 
75 INPUT" ARE VOU SURE" ; K* = IF =" V"THEN GOT08E 
77 GOTG7G 

30 INPUT" ENTER TRANSRCT ION AMOUNT" J TAOO 
90 PRINT"" 

1GG IFT*="W 11 THEN TA<>0--i*TA>;:X> ■ G0T01 20 

110 IFT*O ,L ,L THEN INPUT "ENTER D OR H" J T* = GGTpi©© 

120 E!B=Be+TR<x:i 

130 PRINT" " 

I4fi INPUT "DO VOU WISH TO ENTER ANOTHER TRRNSflCT ION <!V/N>"JA$ 
150 IF A#="V" THEN BEGIN 
159 PRINT "13" 

179 PRINT " BANK: STATEMENT " 
1:30 PRINT" " 

£00 BEND 

210 IF fl*»"V H THEN GO TO 70 
£20 IF A£O l1 N"THEN GO TO 140 

i:oo pr iNT 11 rr 

240 PRINT 11 BANK STATEMENT" 

2^0 PRINT " - " 

2SQ PR 1 NT" " 

£b5 PRINT USING " BEGINNING BALANCE = > ### , #3 tt , - ## " ; NU 

266 PRINT" 11 

270 PRINT" DEPOSITS WITHDRAWALS" 

2m PR I NT" " 

23V FOR Y*»l TU X 

::00 IF Tf\ < V > 'lu THEN BEGIN 

31 S PRINT USING" f j J TR>::V> 

020 BEND 

300 IF TR'::V>>0 THEN BEGIN 

340 PRINT USING 11 *### , tfittt ■ . tttt" ; TR r ! V ;■ 

350 ytlHtJ 
3=t^ HE XT V 
07^, pp. i NT 11 " 

330 PRINT USING ,L ENDING BALANCE = tt . ttfcft , tttt# , tM*B . ## 11 .: EJB 
390 PRINT" - H 



Change lines 31 and 340 to change trans- 
action amount format. 



Experiment 2.2a 



1 O A* = " CAR " Bi"" " T PUC K " C* = " MOT QRCY C LE " 

20 INPUT~FORNnT "J r*r 

3d PRINT USING FtJFl^.StAi 



120 



Experiment 2.2b 



3 GIN H*-'4©0} >DIMCN*<.5G0j 'DIN SA*<7O0> D IN A£*<r0O> DIM C*c:^5G < HI IBO? 

r ; DIM Z*<100? 

20 FOP E=l TO £0 

40 PR INT r " 73" 

£8 FRINT" ADORERS FILE" 

SO PRINT" " 

jO0 PR I NT "ENTRY 3 NAME " 
120 INPUT N*'.E> PRINT"" 

i£^> PRINT"IS THERE A COMPANY NAME '.Y-Nj ?" 

126 GETKEV WC* 

l£7 IF WC*="Y" THEN BEGIN 

13G" PRINT" ■' 

133 PRINT "ENTER COtlFANV NAME" 

134 INPUT CN*<E> 

135 BEND CN*=t"Tl" 
156 PRINT"" 

13? PRINT "ENTER STREET ADORED 3 " 
149 INPUT SA£<E> 
l£0 PRINT" 11 

13© PRINT" DO VOU NEED ANOTHER LINE FOR THE STREET ADDRESS <!V/N> ?" 

200 GETKEV AL* 

220 IF AL*-"V" THEN BEGIN 

240 PRINT"" 

£60 INPUT "ENTER STREET ADDRESS " > A2* <.E> 
2S& BEND A2**="TT H 
3©0 PRINT"" 

520 INPUT" ENTER THE C ITV" ; CT*^E> 
PRINT " l; 

360 INPUT" ENTER THE STAjTE" ; $$<E> 

3S0 INRUT"ENTER THE ZIP CODE" , Z*vE> 

4O0 FPINT"O0 VOU WANT TO CONTINUE vV, N> ?" 

420 GETKEV C* 

440 IF C*^"N" THEN GOTO 500 
460 IF C*0"Y" THEN GO TO 400 
430 NEXT E 
500 PR IMT "H" 
510 V-l 

520 FOR X-l TO E STEP 2 
54G PRINT"" 

560 IF X+1>E THEN PRINT USING "RECORD NO. ## **;X'GOT0580 
570 PRINT USING "RECORD NU, ";K.X+l 
580 PRINT" " 
620 PRINT USING" 
640 RR INT USING" 

^0 PPINT USING"#tttt*##H*t##*tt*##tttt= 
670 PRINT USING" #tttttt##tttt##tt4t####tt= 
t"S0 PRINT USING #########*#= 

681 PRINT USING" 

682 PRINT USING"####tt";2*<X>,2*<:X+i> 
IF Y«£ THEN BEGIN 

70© PR I NT "HIT ANV KEY WHEN VOU ARE READY TO" 

701 PRINT "CONTINUE" 

702 GETKEV F* 

703 PRINTTJ" 
710 v=@ 
715 BEND 
720 VtV+1 
740 NEtfT X 



;N*tX^,K*<X+l> 
;CN*<X>,CN*<X+1> 

: A£#<>0 , R2*';X+1J 
,CT*<X^,CT#^X+I>. 

";s*<x>,s*<x+i > ] Answer (2) 



Answer (1) 
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UNIT:3 



Experiment 3.1 



13 DATA PEMNV, NICKEL, DIME, QUARTER, HALF DOLLAR - SILVER DOLLAR 

20 DATA 1940, 1950, I960. 1970, 

30 DATA 1,3,10,25.50,100 

40 DRTfl 2,6,20,27,53,105 

50 DATA 1 , 6,30,25, 60, 106 

S0 DATA 3,7,35,31,65,107 

70 DflTfi 2,9,32,31,66,110 

90 OIK C#t65,V»:5>,P<6,5> 

90 FOR J=l TO 6 PEADC*<J> = NEXT J 

100 FOR K=l TO ; READ VulO = NEWT K 

110 FOR K=l TO 5 

120 FOR J«l TO 6 

130 RERD P<J,K> 

140 NEXT J 

150 NEXT K 

160 PRINT "THIS PROGRAM STORES THE VALUES OF A SET OF 1940 COINS;" 
170 PRINT"PEKMV, NICKEL D I ME .■ QUARTER," 
130 PRINT" HALF DOLLAR AND SILVER DOLLAR " 
190 FRINT=PRINT"IH THE YEARS : *• 

209 PRINT" 1940, 1950, I960, 1970, 1980" 

210 PRINT PRINT' 1 IT CRN RLSO CALCULATE THE TOTRL WORTH OF THE COLLECTION IN 
IVEN VERR " 

220 PRINT = PR INT" PARTICULAR COIN, OR" 
230 INPUT "TOTAL VALUE <P/T>";U* 
240 IF \4t = "P" THEN GOTO 270 
250 IF W*="T" THEN GOTO 410 

260 PR INT : PRINT" INCORRECT ENTRY, CHOOSE AGAIN" GOTO 220 
270 PRINT; INPUT "WHAT COIH";Mi 
280 FOR J^l TO 6 

290 IF Mt=C*(J> THEN X= J = GOTO 310 
300 NEXT J 

310 INPUT"WHRT VERR " ; D 
320 FOR K-l TO 5 

339 IF D=V<K> THEN Z=K=GOTO 350 

340 NEXT K 

350 PRINT PR I NT "THE VALUE OF R 1940 ".in*" IN " ; D " WAS'' .; Rv X > Z v CENTS" 
360 PRINT 1 INPUT" ANOTHER VALUE Y/KT ; ft* 
370 IF A* 0"Y" THEN 39S 
330 GOTO 220 

390 PR I NT" END OF COIN VALUE COMPRRISION" 
400 END 

4IS PRINT = INPUT ,f WHAT VERR" J H 

420 FOR K=l TO 5 

430 IF V<K> - H THEN GOTO 450 

440 ne:kt K 

450 A=0 

460 FOR J-l TO 6 
470 R«R+P<:J,*0 
400 NEXT J 

490 PRINT" THE TOTAL VALUE IN ";H"WAS ",A 
5O0 GOTO 360 
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UNIT:4 



Experiment 4.1 



10 COLORS, 4^CQL0R5, 1 

20 PRINT"THIS IS A QUIZ. THERE ARE 10 QUESTIONS* " : SLEEP 3 

30 J=-0 

40 COLO*©, 4 

5© REHO Q* 

60 IF Q*="END" THEN GOTO 120 
70 PRINT ,J ^ ,J ,QS: INPUTA* 
S0 READ B* 

90 IF A*=B* THEN J=J+100SUB 1000 
100 IF ASO 8* THEN GOSUB 2000 
110 OOTO 40 

126 FRINT'TTVOU GOT "JJ"OUT OF 10 CORRECT' 1 
130 PRINT" THAT'S " , J/ 10* 109" PERCENT" 
140 INPUT'CARE TO TRV AGAIN" ;C* 
150 RESTORE 

160 IF C*= H V" THEN GOTO 40 
170 PRINT'* OKAV, BYE THEN" 
180 END 

1000 REM RIGHT RNSWER 
101O PRINT CHR$C27VG H ' 
1020 FOR X=l TO 3 

1030 PRINT M M M : FOR N=l TO 200 ■ NEXT N 
1040 NEXT 'A 

150O PRINT CHR*^27>"H" -RETURN 
2000 REM WRONG ANSWER 
2010 COLOR0, 1 ; SLEEP 1 
202O COLOR©, 4 RETURN 

30OO DATA WHAT IS A GROUP OF GEESE CALLED , GAGGLE 

3010 DATR WHRT IS 64 IN ROMAN NUMERALS , LX I V 

3020 DATA WHAT PR I MAR V COLOR HAS THE SHORTEST NAME, RED 

30SO DATA WHAT ANIMAL CAN RUN FASTEST t CHEETAH 

3040 DATR WHRT DO CARCINOGENS CAUSE, CANCER 

3050 DATR HOW HRNY FEET IN R MILE, 52S0 

3060 DATR WHRT DO DATES GROW ON, PALM TREES 

3070 DATR WHAT'S A LOVE APPLE, TOMATO 

3980 DATR WHAT'S THE LARGEST PLANET * JUPITER 

3090 DATA WHAT VITAMIN COMPLEX INCLUDES NIACIN AND RIBOFLRV IN, 8 
310O DATA END 



Experiment 4.2a 



IE PR INT" WO 1 

20 WINDOW 5,5,25,15,1 

3© FOR : i= 1 TO IS 

4* PR INT" .IS 

5* NEXT X: SLEEPS 

66 WIND0W1©, 10,20,20, 1 

7© FOR X =1 TO 10 

PRINT" SIS E 

NEXT XSLEEP2 
IS© WINDOW IS, t£, 24, 24, I 
110 FOR X»l TO 9 
129 PRINT" S3 
t3i? NEXT 'A ■ SLEEP 2 
14@ WINDOW 20 2#, 30 24, 1 
150 FOR ;<=1T00 

PRlMT'Jia B" ; 

]7 NEXT X 
IS© SLEEP2 
190 GOTO 10 
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Experiment 4.2b 



5 REM***** CLEAR THE SCREEN AND DEFINE COLORS ***** 
LB PRINT " 72" 

20 CQLQR4 , 1 = COLORE , 1 = COLORS j 3 

25 REM***** SET UP COLOR WINDOWS ***** 

30 WINQOW1 iZ* 13, 14 

40 oosuesoo 

50 PRINT" M5J" 

60 WIND0W14,2,2iS, 14 

SO PRINT 11 SET" 

30 WINDQW27,2,33, 14 

100 GOSUB500 

110 PRINT " 

115 REM***** SEV UP PAYOFF WINDOW ***** 
120 WIND0W1, 15,33, 23=C0L0R5,7 

130 PR I NT " 31 ■" 

140 FOR X-l TO E 

150 PRINT 51 a ■ ^ 
160 NEXT X 

170 PRINTS -" 

175 PR I NT 'COLORS, 2 -PR I NT 11 LUCKY JACKPOT IF TRV YOUR LOCK M 
180 PRINT 11 )WIi*lFO^tt([fWJPtMW M : PRINT" PRESS THE S KEY TO STOP THE WHEEL" 

130 WINDOWS, 4, 11, 12 

131 REM***** ROLL SLOT MACHINE WINDOWS ***** 

135 oosueiooo 

136 C1=C 

200 WlN00Wl6/4^24. 12 
210 GOSUBlOOO 
215 C2=C 

220 WIND0W23,4,37,12 
230 GOSUB1&00 
235 C3*C 

240 WIND0W2, 16,37,22 

245 COLORS, 7 

246 REM?**** DETERMINE IF USER HAS MATCH I NG COLORS AND IF PAYOFF IS 
* 

250 

255 IF C1-C2 RND C20C3 THEN OOSUB 1300 
260 IF C2=C3 AND C30C1 THEN G0SU6 1300 
265 IF C1=C3 AND C30C2 THEN OOSUB 1300 
270 IF C1^C2 AND C2=C3 THEN OOSUB 1200 
275 PRINT USING" VOUR TOTAL IS ###.##" i -J 

280 REM IP J=0 THEN PRINT "YOU BROKE EVEN*' 

285 REMIF J>0 THEN PRINT USING" VOU HAVE GAINED *##,### . ##"; J 
235 PR I NT*' DO VOU WISH TO CONTINUE <V/N>" 
300 GETKEY 

310 IF K*="N" THEN PRINT"***] THE END" : END 
320 IF K*0"Y" THEN PRINT"!TT* : G0T0235 
330 OOTO 10 

433 REM***** SLOT MACHINE COLOR WINDOW DIMENSIONS ***** 

500 PRINTS ■" 

510 FDRX=1TO10 

520 PRINTS 1 d 

530 NEXT X 

540 PRINT" OH m" 
550 RETURN 

333 REM***** ROLL WINDOWS UNTIL USER PRESSES THE S KEY ***** 

1000 GET S* 

1610 DOUNTILS*="S" 

1015 C«INT<RNJKl>*14+2> 

1026 COLORS, C 

1030 FOR X=l TO S 
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j040 PRINT " 3 ■" 

1050 NEXT X 

1070 GET S* 

1030 LOOP 

1030 PRINT"*®!" 

1100 RETURN 

<U0 REM***** PAYOFF SUBROUTINE ***** 
120(3 PR I NT HI THREE HATCHING COLORS 
1210 COLORS, 2 

1215 PRINT " J A C K P T *100.00 i 

1220 J=J+100 
1225 RETURN 
1300 COLORS , 7 

1310 PRINT " TWO MATCHING COLORS 
1320 COLORS, 2 
132? J=J+25 

1330 PR I NT 11 PAYOFF OF # 25. OO 

1348 RETURN 



UNIT:5 



Experiment 5.1 



2 TRRF 200 

5 P*="CUDE" 
10 PRINT "72" 

15 PR I NT "ENTER THE CORRECT PASSWORD" 

3© FORX=1T04 
40 GET KEY 0* 
50 D$=0*+B* 

GO NE1KT X 

T0 IF D*OP* THEN PR INT "WRONG CODE ACCESS DENIED" GOTO 30 
:=f8 IF D$=P* THEN PRINT" VOU HAVE OR I NED ACCEE3" 
30 NEW 

TRAP20© ' RE3UME 



UNIT:6 



Experiment 6.1 



1 ^EM***#»*****#*******#«#************* 

2 REI^T* INITIALIZE * 

3 REM * ****** **** # ****** **** * * *** * **#* * * 

4 TC=:0 i TW=0 : MC-O ^ MH-0 > SC«tf ■ SW^G = CC-O > CW=6 : L*C=@ > UW=G 

5 oc-e GN-O 

^ R EH* * **** * *** * * * * *** i«r*** ******** ***** 
S REM* MAIN NENU * 

9 REM*** ++** * *** * ** +*+ #* *** * ***** * *** * * 

PR INT" 

L l KEY 1 , "GOTO170"+CHR*a3> 
^ KEY 2, "GnT0444"*CHRf ^13> 
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1 3 t £ V 3 " G O ( Or T 9 1 ' +C H R* < 1 3 > 

14 KEV 4.* "G0TaS99"+CHR*£l:3;' 

15 KEV 5, "GOTO 11:39 hl +CHR*<: 13 ) 

16 KEY 6, ,I GOTD4£03"+CHR*<: 13? 

17 KEV ^ " GOTO 1 374 "+CHR*<; 13> 
IS KEV 8^ "GGT07 I, +CHR*>C13> 

19 C=0 W=0 

20 PRINT "n 1 " 1 

25 PRINT" TRIVIR QUIZ" 



30 PRINT* 1 b=»mmm« 
35 PRINT"" 

49 PRINT" CATEGORIES" 
45 PR I NT " " 

■50 PR INT H1 Ft' TELEVISION" 

60 PRINT" F2s MOVIES" 

70 PI? I NT" F3' SPORTS" 

90 PRINT" F4 COMICS" 

35 PRINT" F5 < MUSip " 

PRINT " GEOGRFlPHV 
37 PRINT" F7 EttIT" 

30 PRINT"" 
130 PRINT"*W«W(WW" 

US PP INT" PRE SS THE OPFFOFR I ftTE FUNCTION KEV" t END 

1 40 REM****************** **+****++***+++ 

150 REM*** TV ROUE I HE *** 

1 60 REN********************************* 

170 PRINTS" 

260 LN-500OC-0=W*0 

20 1 C 0L0R4 , 3 = COL OP 5 , 3 < C OLO P , 2 

2:10 PRINT' 1 TELEVISION" 

PRINT"" 
23© V=l 

240 FOR T=l TO 10 
250 NEXT T 

376 REM********************************* 

377 REM* TV SUBTOTAL * 

3G0 PRINT" TELEVISION" 
305 PRINT"" 

390 PRINT USING 11 IN THIS SECTION VON HAVE HNiWEREO ##";C 
393 PRINT" " 

400 PRINT USING "CORRECTLY hND ## INCGPPEC TLY" J N 
4©5 IF C«0 THEN F-0'OOTO 415 
410 P=vC/lO:'*I00 

415 TC-C>TU^-H 

416 PRINT"WW^«^M«<!T 

420 PRINT USING H VOUR PERCENTAGE I* tttttt 11 ; P 

424 RESTORE 

425 SLEEP5 
435 GO TO 22 

440 REM***** *******+******************* 
442 REN*** MOVIES ROUTINE * 

44 i REM******************************** 

444 PRINT'TJ" 

445 LN=5B4© C-0 N»© 

446 COLO P 4 , 7 COLOR 5 . 7 COLORS, It. 

449 PRINT" MOVIES 

450 PRINT" " 
455 Y=l 

4fc0 FOR T-l TO 19 
46T> COS" M 40^0 
475 N6KT T 

6©0 REM********************************* 

ten rem* movies subtotal * 

605 PRINT" MOVIES" 
6*0 PRINT"" 

615 PRINT USING "IN THIS SECTION YOU HAVE ANSWERED *#"; 

616 PRINT' " 

620 PPINT USING "CORRECTLY AND tttt INCORRECTLY ";H 
624 PRINT"" 
-625 PR I NT " i 
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£26 IF C-OTHEN P=-0 GOTO 635 
630 p=vC/l£^*l#0 
635 MC=C MW-N 

640 PRINT USING "YOUR PERCENTAGE. IS HUE'S P 

642 RESTORE 
645 SLEEPS 
653 GO TO 2© 

653 REn*********-f ********************** 
S56 REN* SPORTS ROUTINE * 

653 REM************************* ******* 

65? PRINT'T]" 

660 LN-5OS0 »C-9 » N=0 

66 1 COLOR 4 ■ 1 = CO LOP 5.- 2 = COLORS > 12 

665 PRINT" SPORTS" 

670 PRINT"" 

675 Y=l 

630 FOP T- 1 TO 10 
665 GGSUB 4000 
690 NEXT T 

324 REM* SPORTS SUSTGTRL * 

625 REM********************************* 

326 PRINT" SPORTS" 
330 PR INT" " 

635 PRINT USING 11 IN THIS SECTION VOU HflVERN SNEP E *#";C 
340 PRINT"" 

645 PRINT USING "CORRECTLY RNG ## INCORRE-CTLV" > \4 
850 PRINT 11 " 

353 IF C-0 THEN P*=0 : &QTO ©60 

355 p-<c/io;'*ie© 

660 SC-C ■■ SW=W 

662 PRINT" AHiaraHMMffifir 

865 PRINT USING "YOUR PERCENT HGE IS **# . #*J£" ; P 
367 RESTORE 
670 SLEEP 5 
330 GO TO 20 

635 REM*********** ************** ******* 
390 REM*** COMIC ROUTINE ** 

335 REM******************************** 

8?? PP. I NT 11 H" 

300 LN=512©=C-0»M*0 

90 1 COL0R4 > 5 = COLORS , 3 ■ COLORS , 1 1 

305 PRINT" COMICS" 

310 PR I NT 11 " 

915 V*i 

*20 POP T =1 TO 10 
925 GO SUB 4000 
335 NEXT T 

1071 REM******************************** 

1072 REM* COMIC SUBTOTAL * 
1373 REM******************************** 

1075 PRINT" COMICS" 
1030 PRINT" 11 

1035 PRINT USING "IN THIS SECTION YOU HKVE ANSWERED **" 
1090 PRINT" 11 

10^5 PRINT USING "CORRECTLY AND ## INCORRECTLY ",W 

1105 IF C-© THEN P=£_vGOTO II IS 
1110 P^<C/1O>*100 

1115 CC=C =CW*=W 

1116 PRINT USING "VOUR PERCENTAGE IS *•* . P 
U27 RESTORE 

U30 SLEEPS 
1135 QO TO 20 

H36 REM****** **************** ********* 

1137 REM* MUSIC ROUTINE * 

U -i* REN******************************* 

1139 PR INT "73" 

1 140 LN=5l GO * C=0 = 

1141 COL0R4 , 6 ^ COLORS / ' COLORS . 1 
1145 PPINT" MU3IC " 
1150 PRINT"" 

1155 



1160 FOR T = 1 TO 10 
1165 GOSUB 4000 
11*0 NEXT T 

1337 REM* MUSIC SUBROUTINE * 

1 30S REM*************** ***************** 
1310 PRINT" MUSIC " 

1313 PRINT"" 

1320 PRINT USING" IN THIS SECT I OH YOU HAVE ANSWERED *#%t 
1325 PRINT"" 

1339 PRINT USING "CORRECTLV AND ## INCORRECTLY" ; W 
133^5 PRINT" " 

1537 IF C=0 THEN P=0 GOTO 1345 

1340 p=<c.'i0>*i00 

1345 UC=C UW-=lkJi 

1350 PRINT USING "YOUR PERCENTAGE IS Ht# t #i?:";P 

1353 RESTORE 
1355 SLEEP5 

1 37© REM** *** * ***** ***** *** * * ******** *** 

1371 REM*** EXIT RND FINAL TOTFlLS * 

1372 REM******************************** 
1374 PRINT" 71" 

13?5 PRINT" VOUR FINAL SCORE " 

1376 OT=hlC+TC+SC+CC+UC+GC 

1377 GW=MW+TN+3W+CN+UW+ftW 

1 37S PRINT" " 

PRINT"" 

12-30 PR INT "QUESTIONS ANSWERED 11 

1351 PRINT"" 

1382 PRINT US I NO " CORRECTLV OT 

1354 PRINT USINO ' H INCORRECTLY #*##%GW 
1385 IF OT-0 THEN GP=0 GOTO 1330 

13&6 GP=<GT/vGW+GT;O*100 

133a PRINT USING "YOU ANSWERED CUP PEC TLV ",GP 

1394 SLEEPS 

1400 PRINT" 71" ; END 

1 49 © REM* * *** * *** * * **** *** * * **** **** * *** 
1432 REM* SUBROUTINE TO CHECK * 

1494 REM* FOR ANSWER "A 11 * 

1436 RE M**# * **** ****** **** * **** * *** * * *** 
1590 GET KEY Al* 
1510 IF fll*O l, fi" THEN BEGIN 

1520 PRINT " WRONG ANSWER, THE CORRECT ANSWER IS - A" 
1530 W-W+l 
1540 ©END 

1550 IF R1*="A" THEN BEGIN 
15150 FR INT "CORRECT ■" 
15F0 C-C+l 
1500 BEND 
1550 SLEER3 
1600 PRINT 1 '" 
1610 PRINT" 71" 
1620 RETURN 

1 900 REM******************************** 
IttZ REM* SUBROUTINE TO CHECK * 
1994 REM* FOR ANSWER "B" * 

.1956 REM ***** **** * * **** **** * * *** * **** * ** 
2000 GET KEY A2* 
2010 IF fl2*0"B" THEN BEOlN 

2020 PRINT "WRONG ANSWER > THE CORRECT ANSWER IS = B" 
2030 W-W+l 
2040 BEND 

2050 IF A2*= HH B" THEN BEGIN 

206 PRINT" CORRECT ! " 

2070 C-C+l 

2030 6END 

2090 SLEEP3 

2100 PRINT "71" 

2£0© RETURN 
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, : .quci p EM ******************************** 

^>992 REM* SUBROUTINE TO CHECK * 
095,4 REM* FOR ANSWER "C" * 

REM******************************** 
300@ GETkEV A3* 
3010 IF ft3*0"C" THEN BEGIN 

.3020 PRINT 11 WRONG RN3WER > THE CORRECT ANSWER IS : C " 

:l!030 

^S4Pi BEND 

30-50 IF R3*-"C" THEN BEGIN 

50t0 PRINT "CORRECT ! " 

3070 C-C+l 

:30SG EEND 

30?0 SLEER3 

:-^lO0 PRINT "72" 

-i£O0 RETURN 

3^00 rem******************************** 

3^2 REM* SUBROUTINE TO READ RND LIST * 

35*4 REM* i^UEST LDNS HNG RNSNERS * 

.39=16 REp|##*:* #******#* ********** ********* 

4000 RERD Q,G*^A 

4010 IF O-LN THEN BEGIN 

4020 PR1MT USING "QUESTION NO. 

4025 PRINT"" ■ PRINT" 11 

4030 Y-Y+l 

4040 PRINT fo* 

4OS0 PRINT" " 

4060 BEND -ELSE 00 TO 4000 
4065 LN-LN+ 1 
407*0 FOR B=l TO 3 
4036 RERO Q. J Q*>'-B>>D 
40^0 PRINT " ;&*<iE> 
4095 LN=LN+1 
4100 PRINT"'* 
4110 NEXT B 

4115 IF A=i*500 THEN OOSUE: 15O0 

4116 IF A=2000 THEN GQSOB 2000 

4117 IF fl=3000 THEN GOSU& 3000 
4120 RETURN 

4201 REN* OEOGRAPHV ROUTINE * 

420 £ REM******************************** 

4203 PRINTS" 

4 204 LN=5200 ; C=0 : W°0 

4205 C0L0R4 > 9 ; COLOR5j 2 : COLORS . I 

4206 PRINT 1 " GEOGRAPHY" 
4£07 PRINT"" 

4 20^ V~l 

4205 FOR T=l TO 10 

4210 00=:'JE 4O00 

421 1 NEttT T 

4:300 REM******************************** 
4301 REM* GEOGRAPHY SUBTOTAL * 

43G3 REM*** ********** *******************^ rl ^ 

4 303 PRINT 11 GEOGRAPHY" 
4304 PklNT"" 

4j05 PRINT USING" IN THIS SECTION YOU HRVE ANSWERED *#" 
4306 PRINT" 11 

*30? PRINT USING "CORRECTLY AND #* I NCORRECTLY" ; W 
430B IF 0=0 THEN pa@ - 00TO 4310 

4309 P-<C/10^*1OO 

4310 OC-C = OW-W 

*3l2 PRINT USING "VOUR PERCENTAGE IS ",P 
4313 RESTORE 

4315 SLEEP 5 

4316 Go TO £0 

4500 R£H******************************* 

4^10 REM* CRT A/ QUESTIONS RND ANSWERS * 
4520 REM******************************* 

5000 DRTR 5000 WHAT ROLE DID RALPH WHITE PLAV ?, 1500 

5001 DATA5001,R> JOHN WALTON ON THE WALTDNS, 1 

5002 DATA5002,E;> GEORGE APPLE ON APPLE'S WAV, 2 



5303 OATA5003: . C> LARRY TAI T OH BEWITCHED -3 

5004 DATA5O04,WHO PLAVED THE JOKER OH THE BATMRN SERIES ?, 1500 

50 OflTAsee^R* Cesar romero, t 

5006 DATA50&5,e; BURGESS MEREDITH, 2 

300? ofiTfrsee?.. c> frank gorshin^s 

5005 DATA500S, WHAT WAS THE NAME OR THE OOO ON THE 6RRDY BUNC H ?,3000 
500^ iJr 1 1 HtitfU^ , h .■ I- h.iNi_t, i 

5010 OATA50l€U Bl' ALICES 

5011 DATA5011,C, TIGER , 3 

5012 DAT A50 12, NAME THE WESTERN SERIES THAT HELPED MAKE JAMES OAR HER FAMOUS ? > 20*8 

5013 DATR5013,R;' WANTED DEAD OR ALIVE , 1 

5014 OATA5014,B> MAYER I CK, 2 

5015 DATB5015.C^ RAWHIDE, :3 

5016 DATR5016,ON THE SERIES OIlLIOAH S ISLAND WHAT WAS T HE bKlPPER-'S FULL NHME ? 



501? GATA501?,A> ROY H I NKLEY, 1 
5016 DATR501S . B 7 JONAS GRUMBY,2 
5013 OATR501?,C> GINGER GRANT , 3 

5020 DRTA502GOH THE BEVERLY HILLBILLIES WHAT WAS OR ANN V "S FIRST NAME ?,1500 

5021 0ATA5021A> DAISY,! 

5022 DATA5022,B> PEARL r 2 
3025 GATA5023,C> ANN IE MAY ,3 

5024 DAT A5024 , WHAT IS THE 10 NUMBER FOR I HE F eDEPAT IONS IRRSH IP ENTERPRISE?, £600 

5025 DATA5025 J A> AIR FORCE UNE , 1 
502S DRTR5026,B.> HCC 1701,2 
502? OATA502?,C> FSS 1902,3 

502S DATA502S,WHU PLAYED THE GREE'J HORNET "S VALET KATO ON TV '? , 
502? DATA5023,A;i ANN E: DAVIS, 1 
3030 DRTA5G30,E!> feURT WARD , 2 
5031 DATA503UO BRUCE LEE, 3 

3032 DATA5032. WHO PLAVED DENNIS y. THE MENACE > MITCHELL ON THAT TV SHOW ?, 150A 
5033 DATA5033,A> JAY NORTH , 1 
3034 DRTA5&34, B.i< TONY DOW,£ 
5635 DATA5035,C> MASON REESE/ 3 

303£ DATR503G,DN THE SERIES THE MONSTERS WHAT WAS THE NAME OF THE DRAGON ?.. £000 
5037 DRTA503?,A> PUFF,1 
503B DATA5038.EO SPOT , 2 

5039 DATA503S,£> CECILS 

5040 DATA 5040.. WHICH LEAD ACTOR NEVER CO-STARRED WITH A LIVE fiFE 3000 

5041 DfiTfl504l,fl-;' CLINT EASTWOOD^ 1 

5042 DATA5042,B^ RONALD REAGAN , 2 

5043 DRTA5043,C> CLIFF ROBERTSON i 3 

5044 DATA5044, WHICH OF THE FOLLOWING WOODY ALLEN MOVIES WRS NOT FILMED IN B 
LACK 4 WHITE ?,2S00 

3045 DATA5045,R:' MANHATTAN.! 
5046 DATA504S,B> BANANAS, 2 
3047 DRTR504?,O ZEL10,3 

5048 DATA504S, WHICH MOVIE DID NOT TAKE RLACE EN PHILADELPHIA ?,200O 

5049 DRTR5043>, A> TRADING PLACES ■ 1 

5050 OATA5050.B> CHU CHU & THE PHILLV FLASH 1 2 

5051 DRTR5051,C> ROCKY , 3 

5052 DATA5052, WHICH OF THE FOLLOWING WAS NOT A DIRTY HARRY MOVIE ?, 3000 
5033 DATA5053,A> SUDDEN IMPACT , 1 

3054 DATA5054,£i> MAONUM FORCE > '2 
5055 DATR5055,C> TIGHTROPE, 3 

5055 DRT A3 5£ j W HA T WAS THE FIRST JAMES BOND MOVIE -",3000 
3037 DATA305?,A> THUNDERED ALL, X 

5056 DATA505S,E.> G0LDF1NGER,2 
5659 DATR5059,C> DR. NO ,3 

3060 DAT A50€0, WHICH KING ARTHUR MOV IE DID NOT FEATURE A MAGICIAN NAMED MERLIN > 
2900 

5G61 DATR50€UA> EXCALI6UR 1 

5062 DATR5062, B> MONTY PYTHON * THE HOLY GRAIL, 2 
3063 DATR50€3,C? THE SWORD AND THE STONE, 3 

30€4 DAT A 5064 , WHAT MOTEL WAS FEATURED IN ALFRED HITCHCOCK'S PSYCHO ?, 15B0 

5065 DATR5063.R? BATES MOTEL , 1 
506S DATA5066.B? ROACH MOTEL, 2 
306? OATA5067.O MOTEL CALIFORNIA, 3 

5068 DATR506S > WHICH OF THE FOLLOWING WAS NOT R CHARACTER PORTRAYED BY ROBERT DE 
NIRO ?,3000 

5069 OATR5069.A5 JAKE LAMOTTA > 1 

5070 DATA50?0,B^ RUPERT PUPK1N.2 

5071 0ATA5071 , U..> SONNY CURLEOkE,j 
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5072 DATA5072, WHAT FRATERNITY DID JOHN BELUSHI BELONG 10 IN ANIMAL HOUSE >>30©0 
5ti7S DRTA50?3,R} PHI OMEGA,] 

DATA5074,B> ZBT , 2 
^075 DRTA5075,C> DELTA HOUSE, 3 

507£ DATA5076 ■ WHO WON AN OSCAR FOR THE YEAR OF LIVING DANGEROUSLY ? . 3O0O 

5077 DATA5077,R> MEL GIBSON, 1 

I507S OATA507S,B> SIGOURNEY WEAVER , 2 

5079 DATA3079,LO LINDA HUNT, 3 

5030 OATA50S0,WHAT CI TV HAD THE 1ST PRO SRSEBALL TEAM THE AMERICAN RED STOCKINGS 
,£000 

5001 OATR50B1,A> CHICAGO, L 
5092 DATR50S2,B> CINCINNATI, 2 
5003 DRTA5083,C> BOSTON, 3 

5064 DATA50S4 , WHAT DID THE Y IN Y A TITTLE STAND FOR 7,1500 
-S0S5 DATA5065>A^ YELGERTON, 1 
50S6 DATA3«86,B> YORKTOWN 2 
-ya87 DATA5007,C> YELLOW, 3 

5030 OA TA 5083, WHAT TWO TEAMS PLAYED THE FItfST INTER- COLLEGIATE FOOTBALL GAME ^ 
,2000 

5 0S9 OATA3089,R> FRANKLIN F^ND MARSHALL, 1 
-1090 DATA5090.B? HARVARD AND MCGILL,2 
5051 DHTA3091,C> HARVRRD HND PRINCETON, 3 

5C192 DATA5052, ANAHEIM STADIUM IS NOT THE HOME S1ADIUM FDR WHICH TEAM ?,30OQ 
^093 DATA50^3, A> CALIFORNIA ANGELS, 1 

5094 DATA5094, B> LA RAMS, 2 

5095 0ATA5095, C> LA RAIDERS, 3 

5096 DATA5096, WHO WERE BOB AND CAROL TED AND DALLAS IN&PQRTS IN THE LATE 6£S 7*2 

000 

5097 DATA5097.H; TENNIS MIXED DOUBLES ■ 1 
5096 DATH50^,B> BOSTON BRUINS DEf ENSEHEN - 
^099 DflTA509?,C> LEADING SHOW DOGS, 3 

5100 DAT A5 10O, WHICH OF THE FOLLOWING DID NOT GO TO THE PHILLIES IN A TRADE FO 

R DICK ALLEN ^,2000 

510t DATA5101,ft> TIM MCCARVfcl^ 1 

5102 DATR5102,B> CURT FLOOD, 2 

5103 DATA5103,C> W ILL IE MDNTANE2 > 3 

9104 DATA5104, WHICH NBA FRANCHISE WAS ORIGINALLY THE oYRGCUSE NHTIONALS 7,SO^j 

5105 OATA5105,A> DETROIT PISTONS, I 

5106 DATA5106+ B> NEW YORK KNICKS,2 

5107 CATA5107,C> PHILADELPHIA 7SERS,3 

510B DRTA5108.WHO SAID NICE GUYS FINISH LAST ?, 1500 
5109 DATA!510*,A> LEO OUROCHER, 1 
5L10 DRTA5L10.B; VINCE LOMBARD I, 2 
5H1 DATA51I1,C> GUV LAFLEUR, 3 

5112 DflTfl5112iTHE GREEN JACKET IS CONNECTED WITH WHAT GOLFING EVENT ?,2*M 

5113 DATA5HS,A> BRITISH OPEN, 1 

5114 DATA5114..B:* MASTERS TOURNAMENT .■ 2 

5115 DATA5115,C^ US OPEN, 3 

5116 DATASlie, WHICH LOCATION WAS NUT A SITE FOR A FRAZIER AND ALI TITLE FIGH 
T ?r2008 

5117 0ATA5117, A> MANILA, 1 

5118 DRTA5110, B> ZIMBABWE, 2 

5119 0ATA5119, C> NEW YORK CITY 3 

5120 DATA5120, WHAT DOES CHRRLIE BROWN'S FATHER DO FOR H LIVING ?, 150U 

5121 DATA5121, ft* CUT HAIR, 1 

5122 DATR5122, 6^ DELIVER MAIL, 2 

5123 QATR5123, C> DELIVER MILK.3 

5124 DRT A5 124, WHAT CHARACTER FROM ANOTHER COMIC STRIP IS RELhTEO Id BEETLE t>A.lLE£ 
V ? f 1500 

-125 DATA51215,R> LOIS OF HI * LOIS, 1 

5126 DATR5126,B? SAD SACK , 2 

5127 DATA512?,C> LOLLY, 3 

5125 0ATR512S.WHAT COMIC STRIP FEATURED SHMOOS V-1500 

5129 DRTA5129,A> LIL ABNER, 1 

5130 ORTH51S0.B? P00C2 

J l^r TjtTT7TjTj1T.LV tiMKUt > bUUULt.O 

5132 DATA5132, THE CHARACTER BO IN DODNE*GURV WAS BASED UN WHOM 

DATH5I3S,A> CARTOONIST GARRY TRUDERU, 1 

5134 DATA5134B> SINGER BOE DYLAN, 2 

51S5 DATA5I35,C:' YALE CHJARTERBACK BRIAN DOWLLNCi 

5136 DATA^ISG.IN WHAT COMIC STRIP WILL YOU FIND A DOO MAMED HOTOOO ?, I50O 

|13? DATA5137.A;. ARCHIE, 1 

5l3g DRTA513$.B> DENNIS THE MENACE 1 2 
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DRTR5139 C> FRED BASSET T , 3 
5140 0RTR5140,IN NHHT LONG RUNNING COMIC STRIP WILL YOU FIND ft LION TALK'S CL 

ue ?, 1500 

^14L DRTA5141 Fl? MUTT RND JEFFM 
SI 42 DRTH5142 > & 2 THE. F L I NTSTONES , 2 
5143 WTfl5143,C.> BLOND IE ^ 3 

DRTH5144WHRT COMIC STRIP LATER BECAME SNUFFV ^MITH / ,^D* 

5 1 45 DRTR5 1 45 ■ B > GRSOL I NE R LL E V 1 
514* 0flTH5l4&,e> BARNEY ijUOGL F . 2 
5147 DRTR514 7.C;- THF TOCNERVLLLE TROLLEYS 

5149 DRTA5143 » WHAT OLD CARTOON STRIP FEATURED MAGGIE & /IGGS ?/3000 

5149 DRTFtfii 1 49 jfl) THE JIGG IS UP, 1 

5150 DRrR5150,.8:> MV LIL MAGGIE, 2 
5V51 OHTR5151,C> BRINGING UF FATHER 3 

5152 DATA5 152, WHAT WAS CAPTBIN MRFVEL - S NICKHRME 7,20OO 

5153 DRTR5153,H> THF RED TDPPEDG, 1 
■=5 154 DATA5i54,E> THE BIG RED CHEESE , 2 
5L55 DRTR515r> r: > THE RED EEE, 9 

5156 DHIA515* -WHICH -UPEP HERO GOT HIS POWERS L'THFP THAN £V HUlLERR BuClOENT?, 
3O0G 

5157 DATA5l5. J ,H- SPIOERMAN 1 

5159 DRTB515S,fc;> THE INCREDIBLE HULK > 2 
5L59 ORTA5159 O THE FLASH, 3 

5160 DATR5 1*0, WHICH OF THE FOLLOWING IS NOl B BEATLES SONG ^> ■ 1 50U 

5161 DRTR5 1 & 1 , R > SUNN V FtF T EPNOON 1 
51S2 DATR5162 B> 9 UN KING, 2 
5163 DRTH5 163,0 T^LL FOLLOW THE SUN ■ 3 
51 £4 DRTR5164.WHO SANG THE HIT THF ME SONG FROM THE JBMES BONO MOVIE GOLDFINGI 
R ?, 150# 

5165 DRTR5165 R^ SHI RLE V BA3SEV, 1 

5166 DRTR5166.B;. SHEENR ERST ON - 2 
51*7 DftTH5l67,C:> NRNCY SINRTRA,3 
5163 DRTR5 J, 68 1 PETER NOD ME WAS THE STAR OF WHICH ENGLISH SINGING UFOUP 
OO 

5L65 DATR5ie?,A> HERMAN S HLRllITS-1 
5170 DATB5170 B> THL SERRCHFFS> 2 
51.71 0RTA5l71,C> THF MOUOV GLUES, -3 

517,- DATA5172,WH0 MfcuTE THE SONNY RND CHER HIT SONG THE EJERT GOES ON 7", 2000 

5173 DRTR5i73,A> NEIL DlBMONO-l 
51^4 0RTR5t74,G J GOB OVLAN 2 

5175 DRTA5175 C;> NE tL 3EDAKR,3 

5176 BATR51,^, WHAT WRS ELVIS PftESLEV'S FIRST HIT ?,30OO 
517,? DRTR51?7,A> BLUE SUEDE SHUE3, 1 

5173 DRrH517^S.> HOUND DOG 2 

5179 0BTR517*,C> HEARTBREAK HOTEL, 3 

5JS0 DRTR5130 SIMON & GRRFUHKEL WERE 0PIGINF11.LV CALLED WHAT NAME 7,150© 
51S1 PATA5l£l,R} TOM & JERRY, 1 

5182 DRTB5192 E > 1 HE TEFHBGEPS > 2 

5183 DATB5l£3,C-- THE MURK TWINS 3 

5134 DHTH5 184 .-ERNEST" EVBNS'S STAGE NAME IS ?,3OO0 

51S5 DRTR5l£5,A> FATS DOMINO," 1 

51SS DR1B5136 B^ P1EA1LGAF > 2 

51S7 DATB5197 C> uHUBBV CHECKER. 3 

5199 DRTRblyG WHRT GROUP DID EPIC GUROOH STRPT BFTER LEAVING THE ANIMRLS ?,20« 
51S9 DBTR51S3,R> CREBM 1 
519P DRTR519G B> WRR.2 

51*1 BRTB51*1 . C DFLRNFV * BfJHNIE,3 

5192: DfHTR5192,WH0 HAD A BIG 60S HIT WITH THE SONG GERNADETTE ?,15©0 

5193 DATR5123,A> THE TEl'lF TRI / 

5194 DRTR5ly4 ^ Fj :- THE TRHMMPSj '2 

5195 ORTR5193.0 THE HOLLIES, 3 

5196 DRTB 51S»6,WHl^H SONG DOES NOT MENTION GREYHOUND B".iSL3 ^ 1500 
51^7 DRTA5197.. fl> BUS STOP GV THE HOLLIES* 1 
5193 DA TR5199 B - PRMBLIN NAN BV THF Rl.L MRN EROS, 2 
5199 DATR5199^C> RMERICR SIMDN 4 GRRFUNKEL.S 
52By DRTR5?0O, WHERE IS THE THE BERNESE OBEPLRHD "^1500 
52D1 DBTR5201,A> SWITZERLAND, 1 
5202 DATA5202,B^ GERMANV, 2 
52t)3 DRTFI52Q3; C' KLNVM, 3 

5 2 D4 DATR5204y WHRT IS THE CAP" I TRL OF LUXEMBOU Rlj ? , 1 5DD 
5205 DRT R52 05 A ■ LUXE MFOUPG L I TV, 1 
520-5 DRTR52D6 b^ VBDUZ ■ 2 
5207 DRTR5207,C ■ THE HhGUE , 3 



132 



^209 DBTR520^,R> ST MRPTIN,1 

DHrA52lO,G" GURN-2 

DflTR5211,CJi RRU&H, 3 
5212 DRTA5212, THE ORIENT EXPRESS OR XG I NATES IN WHRT CI TV 7,3000 

5£13 DRTA5213,A> PEKING- 1 

5214 DRTA5214,B> LuND0N,2 

5215 DRTR5215,C> PFlRIS,S 

5216 DATA5216 > ICELAND BELONGS TO WHAT p^OUNTRV 7,3000 
52 1 7 D AT A5 2 1 7 , A > GF:E E HLf+NO , \ 

521S DATA521B, B> CANADA, 2 

5219 DRTR5213.0 DENMARK, 3 

5220 DATA 5 220 r SCHIRHOL AIRPORT SERVES WHIGH CI TV 7,3000 
52 2 1 DATA5 22 1 , ft > JO HB^^NF SBURG > 1 

522V DATA5222,B:' NICE, 2 

5223 DRTR5223,C> AMSTERDAM, 3 

5224 DATA 5224, WHICH CANADIAN PROVINCE IS THE FARTHEST WEST 7,300O 

5225 DATA5225,A> BRITISH COLUMBIA, 1 

5226 DATA5226,B> ALBERTA, 2 

5227 0RTR5227.O VUK0H,3 

522S DATB522S, WHERE IS GRANT '"S TOMB 3^2000 

5229 DflTA522SjA> OHIO, 1 

5230 DATB523ti 6 - NEW YORK, 2 

523 1 DR TB 523 1 , C> W RSHIN GTON DC: , 3 

5232 DATA5232.^WHBT IS THE SECOND LARGEST CI TV IN FRANCE 3, 1500 

5233 DATR5233;fl> LVON, 1 

5234 0ATA5234,B> STRRSG0URG,2 

5235 DATB5235,C> MARSEILLES 

5236 DRT A5236, WHICH OF THE FOLLOWING IS NOT R CAPITAL C I TV 7,3 WO 

5237 DATR5237, A> BUOHPLSF, 1 
525S DRTA523S,B:> BELGRADEj2 
5239 DATR523S>,C> HUNICH.S 



Experiment 6.1/4 



1 PEN***.*+#**+********Jf***>******#***** 

2 REM* INITIALIZE * 

3 FlEM*#***+*sf t 

4 TC=9 = TN-0 ; MC=0 = HW-0 : SC=0 - SW=0 = CC=0 ■■ CW°fi UC=0 -■ UH*& 

5 GC=0 GW=0 
7 REM***** 

^ REM* MAIN MENU * 

9 PEN***********:*********************** 

10 PRINT 11 :!" 



S 

■■ W=0 



11 KEV 

12 KEV 

13 KEV 

14 KEV 
1- i^y 
lb KEV 
17 KEV 

15 KEV 

19 C=Pi 

20 PRINT"!] 1 
25 PRINT" 
SS PRINT" 

PRINT" 
4 PRINT" 
^5 PFt N yii 
^0 PRINT" 

PRINT" 
? Q PRINT" 
SB PRINT" 
3 ' PRINT" 
ee PRINT" 
S? P R i m „ 

96 PRINT" 



OOTO170"+CHR*(:i3> 
ijOT0444 " +CHR* 1 3 

ooto659 ,, +chf:i< l s:-. 

GDT0S93"+CHR*^. l j:. 1 

GOTQ4203 H '+CHR*<: I 5> 
GOTO 1 374"+CHR* C 1 3> 
GOT07"+i;:HP*vl3> 



TRIVIA QUIZ'* 



CATEGORIES" 



Fl -■ 

F2 = 

F3 

F4 

F5 

F6 

F? 



TELEVISION" 
MOVIES" 
SPORTS " 
COM I OS" 
MUSIC " 
GEOGRBPHV 
EXIT" 
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lee pkiNT"'<Mwmttttr 

110 PRINT"PRESS THE APPROPRIATE FUNCTION KEV END 

149 pem********************************* 

150 REM*** TV ROUTINE *** 

tee rem************-********************* 

170 PRINTS" 

200 ln^s&oo c=o=w-& 

£B 1 COLOP4 > 3 COLORS > 3 = COLORS , 2 
210 PRINT" TELEVISION" 
220 PRINT"" 
230 V=t 

240 FOR T=l TO 10 

241 GOSUB 4000 
250 NEXT T 

377 REM* TV SUBTOTAL * 

37& REM********************************* 

300 PRINT" TELEVISION" 
385 PRINT " " 

390 PRINT USING" IN THIS SECTION VOU HHVE ANSWERED #*":i 
395 PRINT" 1 ' 

400 PRINT USING "CORRECTLV HND tt« I NCCRPECTLV" ; M 
405 IF C»0 THEN P*0 GOTO 415 

410 P=-CC/10>*100 

415 TC-C TW=W 

420 PRINT USING "VOUR PERCENTAGE IS tt##,##^"JP 

424 RESTORE 

425 FORG&=lTO1500:NE:*TOt' 
435 GO TO 20 

440 REM******************************** 

442 REM*** MOVIES ROUTINE * 

443 REM*************** *********** ****** 

444 PRINTS" 

445 LM=504@ C=0W=0 

446 CQL0R4,7 COLORS, F COLORS 15 
443 PRINT" MOVIES 
450 PR INT" " 

455 V-l 

460 FOR T-l TO 10 
465 GOSUB 4000 
475 NEXT T 

600 REM***************** ******* ********* 

601 REM* MOVIES SUBTOTAL * 

602 REM************ ********* ************ 

605 PRINT" MOVIES" 
610 PRINT" " 

615 PRINT USING "IN THIS SECTION VOt* -f AUStCPtCr 
6 IS PRINT"" 

6^0 PRINT USIN* "CORRECTLV AND #* INCORRECTLY ' : U 

6£4 PRINT*'*" 

625 PRINT" TOOTWWMKWWW M 

fc£6 IF C=^0THEH P=0 GOTO 635 

630 P=^.C.- > 10>*100 

635 MC=C MW=U 

640 PRINT USING "YOUR PERCENTAGE IS #** . ,r .: P 
642 RESTORE 

645 FORDO— 1 TO 1 500 ■ NEXT 00 
650 00 TO 20 

656 REM* SPORTS ROUTINE * 

65S REM******************************** 

655 PR INT "IT" 

660 LN=5O30 C=0 L4=0 

66 1 COL0R4 . 1 : C0L0R5 ■ 2 - COL OR0 , 1 2 
665 PRINT" SPORTS" 
670 PRINT" " 

675 V-l 

6B0 FOR T= I TO 1 O 
6B5 GOSUB 400O 
690 NEXT T 

92 3 REM************* ******************** 
REM* SPORTS SUBTOTAL * 

325 REM********************************* 
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$26 PRINT" SPORTS" 
3-3* PRINT"" 

g35 PRINT USIN0"1H THIS SECTION VOU HAVEANSWERED *M#",C 
; :;40 PRINT"" 

■345 PRINT US IMG "CORRECTLV AND fl# I NC ORRECTLY" ; H 
850 PRINT"" 

£53 IF 0=0 THEN F=0 ; GOTO 360 

S 55 R-<c.''ie>*iee 

5=,6£ SC-C >SW=W 

S65 PRINT USING "VOUR PERCENTAGE IS *»4T:" ; P 

3^7 RESTORE 

8 70 FGRQQ-1TO1500 NE^Ti^O 
830 GO TO 20 

685 REM******************************** 

sse rem*** come routine ** 

335 REM******************* ************* 

393 PRINTS" 

?00 LN=512G =C*0 : W^O 

901 COLOR4,5vCOLOR*5,3=CGLOR0, 11 

PRINT" COMICS" 
SIS PRINT"" 
P15 V=-l 

920 FOR T =1 TO 18 
925 GOSUB 4000 
335 NEXT T 

1371 REM******************************** 

1072 REM* COMIC SUBTOTAL * 

1 f J RE M 1 ** ***************** *** ******* ** * 

1075 PRINT" COMICS" 
1033 PR INT" N 

10&5 PRINT USING "IN THIS SECTION VOU HAVE ANSWERED #H"\C 
1390 PRINT"" 

1335 PRINT USING "CORRECTLV AND INCORRECTLY " . ; N 

1103 PRn^T"WinrottWW)(I)sWl" 

1105 IF C=0 THEN P=0^GOTO 1115 

1110 P=-<X/10>*103 

1115 CC=C CW-N 

1116 PRINT USING"VOUR PERCENTAGE IS #**.##£";P 

1130 FORQO=1TO15©0=NEXT 00 
1135 GO TO 2J0 

1 1.36 REM************************* ****** 

1137 REM* MUSIC ROUTINE * 

U33 PRI NT "72" 

1140 LN=516O=C-@;W-0 

1141 C0L0R4, 6 =C0L0R5,£= COLORS, 1 
1145 PRINT" MUSIC ** 
1150 PRINT"" 

1155 V=l 

U60 FOR T = 1 TO 10 

1 165 CiOSUB 4000 

1 130 NEXT T 

1 306 REM******************************** 

1337 REM* MUSIC SUBROUTINE * 

1303 REM******************************** 

1310 PRINT" MUSM " 

1315 PRINT"- 

1323 PRINT USING" IN THIS SECTION VOU HAVE ANSWERED *N* " , C 

1325 PRINT" 1 - 

1333 PRINT USING "CORRECTLY AND INCORRECTLY" , W 

1335 print" " 

1537 IF C=0 THEN P-0 GOTO 1345 

1340 p= o:^l 3>* 100 

1345 Ui:=C:|.IW-W 

134*; PRiNT^WWWWWflOOMWW' 1 

350 PRINT USING 11 YOUR PERCENTAGE 13 mt/i " .: P 

1353 RESTGRE 

1355 FOROG1-1 TO 1500^ NEXT QQ 

13 65 GO TO 20 

1 j ; r^J P EM***** *************************** 

J 571 REM*** EXIT ANO FINAL TOTALS * 

-'' - REM******************************** 
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1374 PRINTS" 

1375 PtfINT* YOUR FINflL SCORE" 
137£ GT-HC+TC+SC+CC+UC 

1377 GWw(iW+TU+SW+ CW-HJN 

1378 PRINT" " 

1379 PRINT"" 

1380 PRINT'QUESTION'S ANSWERED " 

1381 PIS-INT""' 

13S£ PRINT USING Hl CORRECTLY :tt*#* M jGT 

1354 PRINT USING M INCORRECTLY t*tt##";GW 
1335 IF GT«0 THEN GP*0GOTO 1590 

1355 GF-^GT/^GN+GT>>#10© 

1 392 PRINT USING "YOU ANSWERED CQPRECTLY '* , GP 

1594 FQPG!G!=LTOl596i:NEXT Qtt 
1490 PRINT "73" = ENQ 

1495 REN******************************** 
1492. REN* SUBROUTINE TO CHECK * 
1494 PEN* PC*' ANSWER "A" * 

1496 REN******************************** 

1596 GET KEY ftl* 

151© IF A1*="A" THEN GOTO L5£0 

1520 PR I NT" WRONG RNSWER , THE CORRECT ANSWER IS = A" 

1530 W^W+1 

1540 GOTD1590 

1560 PR INT " CORRECT ! " 

1570 C=C+1 

1590 FOftQO-irOl3wl0=NEXT!?Q 
1600 PRINT"" 
1610 PRINT "71" 
1620 RETURH 

1992 REN* SUER0U1 INE TO .CHECK * 

1994 REN* FOR ANSWER "B" * 

1996 REM************************* ******* 

^ooe GETKEV ft2* 

2010 IF A2*="B" THEN GOTO 20E3 

2029 PR INT "WRONG ANSWER .■ THE CORRECT ANSWER IS = B" 

2050 W»W+1 

^U40 GOTO2090 

206© PR INT "CORRECT ! " 

Z0?0 C=C+1 

2090 FORijQ^l TGI 500 ■ NEXT QQ 
2180 PR I NT" IT' 
2200 RETURN 

2990 REN******************************** 
29y2 REN* SUBROUTINE TO CHECK * 
2954 REN* FOR ANSWER "C * 

2596 REN***************** ****** ********* 

3000 GET KEY A3* 

3010 IF A3*="C" THEN GOTO 3060 

3020 PRINT " WRONG ANSWER * THE CORRECT ANSWER IS ' C HH 

3030 W=pW+1 

5O40 GOTU305-0 

J0G0 PR I NT " COR RE C 7' ' 11 

3070 C-C+l 

3090 FOPClG!= 1 TO J. 5 SO ■ NEXT QQ 
3100 PR INT " 72" 
3200 RETURN 

3900 REN******************************** 

3992 REN* SUBROUTINE TO READ AND LIST * 

3994 REM* QUESTIONS RNO ANSWERS * 

3596 REN******************************** 

4000 READ G-iOtsfl 

4010 IF QOLN THEN GOTO 4©«o 

4020 PRINT USING "QUESTION NO. #H M :V 

4025 PRINT PRINT"" 

4930 V*V+I 

4040 PRINT O* 

4050 PRINT 1 " 

4065 LN-LN+1 

4070 FOR B-i TO 3 

40G9 READ Q,G.*<B>,D 
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405-0 PRINT " ■SO*<BJ- 
40?5 LN-LN+1 
4100 PRINT"" 
4110 NEXT B 

4115 TF H=15O0 THEN GO SUB 1500 

4116 IF A=20O0 THEN GOSUB 2OO0 

4117 IF A=3000 THEN GQSUE! 3000 
4120 RETURN 

4200 REM*********************** ********* 

4201 REM* GEOGRAPHY ROUTINE * 
4T'02 REN********************* *********** 

4203 PRINT 11 71" 

4204 LN=5200 : C -O = 1*1-0 

4205 C0L0R4 . 9 = COLORS, 2 ■■ COLOP0, 1 
420-5 PRINT" CEOCjRHP'HV " 
4207 PRINT lh " 

4?gS Y=l 

4^09 FOR T=l TO 10 

4210 GCSUB 4000 

4211 NEXT T 

4301 REN* GEOGRAPHY SUBTOTAL * 

4]i02 REN************** ********* *********4 2 50 
4303 PRINT" GEOGRAPHY" 
$13* T A^.TNT jr 

4305 PRINT USING" IN THIS SECTION YOU HAVE ANSWERED ; C 

4306 PRINT" " 

4307 PRINT USING "CORRECTLY AND «« INCORRECTLY" i W 
430S IF C=Q THEN P=0 = GOTO 4310 

4309 P™<X/ie>*100 

4310 TC-C TN=W 

4312 PRINT US IKS "YOUR PERCENTAGE IS **#:-;"; P 

4313 RESTORE 

4315 FQRG!Q=1TO1500:NEKT QQ 

4316 GO TO 20 

4510 REN*' OATH/ QUESTIONS RNO ANSWERS * 
4520 ^EN***+ ************** ************* 

5000 DATA5000 , WHAT ROLE DID RAfLPH WRITE PLAY 71500 

5001 OATA5001>A> JOHN WALTON ON THE UAL TONS > 1 

5002 DRTA5002-.B} GEORGE APPLE ON APPLE S WAY, 2 

5003 DATA500S.O LARRY TRIT ON BEWI f CHEL^J 

5004 DATA5004, WHO PLAYED THE JOKER ON THE BATMAN SERIES 7.1500 

5005 □ATA5005,A> CESAP RuNERiJ^ 1 
50OS OAT^OO^,^! £Uf:GE:=S. MEREDITH.;-.: 

5007 DATR5007>C> FRRNK GORSHIN-3 

5008 DATA5008 , WHAT WHS THE NAME OF THE DOG ON THE BRADY BUNCH ?,3000 
5O0Sf DATA5&09.A:- PRINCE,! 

5010 DATA5010>B> ALICE, 2 

5011 DRTA5011,C:> TIGERS 

5012 OATA5012.NANE THE WESTERN SERIES THAT HELPED MAKE JANES GARNER FRtlOUS 7,2600 
50Li DATA50I3.A!) NANTELi DEFlO OR ALIVE, 1 

5014 DATR5014,EO NAVERICK,£ 

5015 DATA5015.C:^ R ANN IDE , 3 

50 It" DAThi501S,ON THE SERIES GILL I CAN'S ISLAND WHAT WAS THE SKIPPER S FULL NAME ? 

■ S;0O0 

50 1 7 O AT A50 1 7 * ft} ROY H 1 HKLE V , 1 

5013 OATA50I3,E^ JONAS GRUHBY,£ 
59 I* OATA5019.-C? GINOER OP ANT, 3 

5020 DATft5020,ON THE BEVERLY HILLBILLIES WHAT WAS GRANNY FIRST NftTIE 7> 1 500 

5&2I DATR5021,A;i DAISY. 1 
^022 DATA5022,e:' PEARL, 2 
5023 DAT A 502 3, Us ANNIE NAY, 3 

^024 DATR5024 > WHAT IS THE ID NUMBER FOR THE FEDERAT lONST ARSH I F ENTERPRISE?. 2000 
5025 DATP5025.H: 1 AIR FORCE ONE .- 1 
^02S ORTA502tB> NCC 1701 > 2 
502? DATj=l502?,C'> FSb- L?02.3 

502S DATA502SWWHO PLAYED THE GREEN HORNET -'S VftLET h.ATO UN TV ^,3OO0 

5029 DRTH5EJ23.. RJ- ANN B DAVIS, I 

5030 ORTA5O30,B:' BURT WftRD,2 

5031 DATR5031 .■ O BRUCE LEE>3 

5032 ORTA5032.WHO FLAYED DENNIS * T HE HbNnC£> MITCHELL ON THftT TV SHOW ?>1500 
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5033 OATA5033,A> JAY NOklH.. 1 

5034 OATA5034,B.> TONY DOW .. 2 
5033 DATA5035->C> MASGM REESE , 3 

50 36 DATA503G,O« THE SERIES- THE MONSTERS WHAT WAS THE NAME OF THE DRAGON 7.200ft 

5037 DATR5037.>A> PUFF , 1 

5lfl3S DRTR5038,BJ SPOT , 2 

503* DATA5033,C> CECIL, 3 

5040 DATA504O, WHICH LERD RCTOR NEVER CO-STARRED WITH A LIVE RRE 7,3000 

5041 DATR5041,R> CUNT EASTWOOD, 1 

5042 DRTR5042,B> RONALD REAGAN 2 

5043 DATA5043,C> CLIFF ROBERTSON, 3 

5044 DRTR5044, WHICH OF THE FOLLOWING WQOOV ALLEN MOVIES WAS NOT FILMED IN I 
LRCK A WHITE 7,2000 

5045 ORTR5045,R> MANHATTAN, 1 

5046 DATA5046,B> BANRFtAS, 2 

5047 DATA3047,O ZELIG,3 

5048 OAT A5048, WHICH MOVIE DID NOT TAKE PLRCE IN PHILADELPHIA ? , 2000 

5049 ORTR504^rR> TRAP! HO n_flf Ev, i 

5050 DATR5050,B> CHU CHU 4 THE PHILLV FLASH, 2 

5051 BRTA505l,C> ROCKY , 3 

505j£ DATA5052-WH1CH OF THE FOLLOWING WFiS NOT R DIRTY HRRRV MOVIE 7, 3000 ■:; 

5053 DATA5053,Aj SUDDEN IMPACT , 1 

5054 DRTR5654, B> MAGNUM FORCE 2 

5055 DATA5055,C> TIGHTROPE, 3 

5056 DATR5056, WHRT WRS THE FIRST JAMES BOND MOVIE 7 > 3000 

5057 DATA5057,A:> THUHDERBRLL , 1 
505* DATA5058,E^ GOLDFINGER , 2 

5059 DATA5055,C> OR* NO, 3 

5060 DA IR50fc0, WHICH KING ARTHUR MOVIE DIO NOT FEATURE A MAGICIAN NAMED MERLIN 7 

20 1 

5061 ORTR5061,A> EXCALl£:IJR,l 

50E2 DATA50G2,B> MONTV PVTHON THE HOLY GRAIL, 2 ! 

5063 DATR50S3O THE SWORD AND THE STONE , 3 

5064 DAT A5064 , WHRT MOTEL WAS FEATURED IN ALFRED HITCHCOCK'S PSVCHO 7 l50fl 

5065 DATA5u65 J ft> BATES MOTEL, 1 

5066 OATA5066.E:-' ROACH MOTEL, 2 

5067 DRTA5*67 C ■ MOTEL CALIFORNIA, 3 

506S ORTR5068, WHICH OF THE FOLLOW TNG WAS NOT A CHAiRAC-TER PORTRAYED bV ROBERT Q 
N I RO ?, 3000 

"506? DATA50G3.R' JAKE LRMCTTR, 1 

5070 DRTA5070,£O RUPERT RUPKIN, 2 

5071 DATA5071.C' SONNY CGRLEONE , 3 

5072 DATR5072.. WHAT FRATERNITY DID JOHN BE LUSH I BELONG TO IN ANIMAL HOUSE " , 300fl 

5073 DATA5073,R> PHI OMEGA, 1 
50T4 DATA5074,B> ZGT,2 

5075 ORTRS075^C> DELTA HOUSE, 3 

5076 DA TR 50 76, WHO WON RN OSCAR FOR THE YEAR OF LIVING DANGEROUSLY ?.> 3-000 

5077 0ATA5©??, A> MEL GIESON,! 

5078 DATR507S,B> SIGQURNEV WEAVER , 2 
5075* DRTA5079,u^ LlHDR HUNT ,5 

50Stf DAT A50S0, WHRT C I TV HAD THE 1ST PRO BASEBALL TEAM THE AMERICAN RED STOCKING 

, 2000 

508 1 DATR50S1 > A!' CHICAGO, 1 
5082 DATR50S2,B> CINCINNATI, 2 
5883 GRTR50S3,O BOSTON, 3 

5084 DRTA50S4 , WHRT DID THE Y IN V A TITTLE STANO FOP 7, 150tf 

5085 DATA50S5,A> YELEJERTON . 1 

5086 DATA5086,£.> YORKTGNH ■ 2 
50B7 DATA5087,C> YELLOW, 3 

5088 ORTA50SS WHAT TWO TEAMS PLAYED THE FIRST INTER- CGLLEuI ATE FOOTBALL GRHEi : - 
.. 2000 

50S9 DATA508^ j A,t FRANKLIN RNO MRRSKRLL 1 
5090 DRTA50S«0,B> HARVARD AND MCGILL,2 
5031 DATA5091 C' HRRYARD AND PRINCETON,:? 

5092 DATA5032, RNAHEIM STADIUM IS NOT THE HUME STADIUM FOR WHICH TERM 7,3000 

5093 DATR5093, A: C AL I F RN I A ANGELS, 1 

5094 DATA5094, B LR RAMS ,2 

5095 DATA5095, C> LR RHlDeRS->3 

5096 DATR5096; WHO WERE BOB RNO CRROL TED RNH OALL.RS INSPORFS IN THE LRTE 60S ?* 

000 

5097 DATA5097 R' TENNIS MIKED DOUBLES- t 

5098 DRTA5Q9S; & > BOSTON BRUINS DEFENSEflEN.- 2 

5099 DATR5099.C? LEADING SHOW DOGS , 3 : 
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5100 DATR5 100.. WHICH OF THE FOLLOWING DID NOT 00 TO THE PHILLIES IN R TRADE FO 
ff DICK ALLEN ?,2000 

5101 OATAS101,A> TIM MCCRftVER , 1 

5102 DRTA5102,B> CURT FLOOD, 2 

5103 DATR5103t> WILLIE MONTR HE I ■ 3 

5104 DATR5104, WHICH NBA FRANCHISE WAS ORIGINALLY THE SYRACUSE NATIONALS ?>3000 
■;i©S DATAC105 J A> DETROIT PISTONS, 1 

510ig DAfA5l06,B> HEW YORK KNICKS,2 
5107 DRTA5107O PH X LADE LF^H I A 76ERS,3 

5105 DATA5108,WHO SAID NICE GUYS FINISH LAST ?, 1500 
^TA5109.Nn L ,C^ DuFOi.N^ 1 

5110 DflTA5ll0,B> V INCE LOI'tBARDI ► 2 

51 1 1 DATR5 1 1 1 j. C> GUV LAFLEUR t 3 

5112 DflTASl 12 j THE PREEN J PICKET IS CONNECTED WITH WHAT GOLFING EWENT 2«a« 

5111? DATH5113 J A> BRITISH OPEN.l 

5114 DATA5114,Bj MASTERS TOURNAMENT ■ 2 

5115 DATA5115,C> LtS OPEN , 3 

511^ DATA51 IS, WHICH LOCATION WAS NOT A SITE FOR R FRAZIER AND ALl TITLE FIGH 

T 7,2000 

5117 0ATA5U7, A> MAt^lLA - 1 
511S DATA511S- B> ZIME«BWE>2 

5119 DATA51 19, C> NEW YORK CI TV, 3 

5120 DATA5120, WHAT DOES CHARLIE BROWN^S FATHER 00 FOR A LIVING ?, 1500 

5121 DATA5121 R> CUT HAIR, 1 

5122 DATA5122, B> DELIVER MAIL, 2 
5125 DATA5123, C> DELIVER MILK, 3 

5124 DATA5 1 24 * WHAT CHARACTER FROM ANOTHER COMIG STRIP IS REL ATE TO BEETLE BAILE 
V 1500 

5125 DATA5125,A> LOIS OF HI ^ LOIS T 
512^ DATA5126,E;;' SAD SACK, 2 

5127 DATA5127,C> LOLLY, 3 

5120 D ATR5 1 2S , WHA T COM 1 STR IP FEAT URE D SHNOOS ? , 1 500 
5129 DATA5129A> LIL ABNEP > 1 
51^0 DATA513G,B> PO00,2 

5131 DATA5131,C> BARNEY GOOGLE ,3 

5132 0ATA5132- THE CHARACTER BD IN OOONESBURY HAS BASED OH WHOM 7 3000 

5133 DATA5133,A> CRRTOOtUST GARRY TRUOEAU, 1 

5134 UATA5134,B> SINGER BOB DYLAN, 2 

5135 DATA5135.0 YALE QUARTERBACK BRIAN OOWLIHO 3 

513^ DRTA51^,1N WHAT COMIC STRIP WILL VOU FIND A DOG NAMED HOTDOO ^,1500 

5137 DATA5137,A' ARCHIE.-: 

513S DATA513S,6.- DENNIS THE MENACE ■ 2 

5139 DATA513S,C ■ FRED BASSE TT , 3 

5140 DATA5140.IN WHAT LONG RUNNlNij COMIC STRIP WILL YOU FIND A LION TRMEfc S CL 
Ut: 1500 

5141 0RTA5141 A> MUTT AND JEFF,1 
5M2 DATA5142,B> THE FLINTSTONES, 2 
514J DATA5145,C> BL0WD1E.J; 

5144 DAT A5 144, WHAT COMIC STRIP LATER BECAME SNUFFY SH I TH ?,2000 

5145 DATA5145,A> GASOLINE ALLEY h 1 
514^ DATA514iS,B> BARNEY GO0GLE>2 

5147 DATA5147,C> THE TOONERVILLE TROLLEY, ^ 

5143 DATA514S, WHAT OLD CARTOON STRIP FEATUREO MAGGIE & JIGGS 7,^000 

5149 0RTA5149,A> THE JIGG IS UP, 1 

5150 DATA5150,EM MY LIL MR00IE,2 

5151 DATA5151,C> BRINGING UP FATHER -3 

5152 0ATA5 152, WHAT WAS CAPTAIN MARVEL S NICKNAME 7,2000 
515:* DATA5153,A> THE RED TOftPEOO,! 

53 54 DATA5154,B> THE BIG RED CHEESE > 2 
5155 DRTA5155,C> THE RED BEE 1 3 

515S DRTR5 156, WHICH SUPER HERO GOT HIS POWERS OTHER THAN BY NUCLEI AP ACCIDENT?. 

-'157 DATA5157,A> SPIDERMRN .■ 1 

"I5rz; DRTR5153.B> THE INCREDIBLE HULK, 2 

5159 0RTR5153,C.' THE FLASH ..3 

^160 DATA51S0> WHICH OF THE FOLLOWING IS NOT R BERTLES SONG 7, 1500 

^161 DFtTfi51£t -> A> SUNNY AFTERNOON- 1 

^16^ DRTH5162,B> SUN KING, 2 

S163 ORTR51&3.CV- I'LL FOLLOW TAE SUN, 3 

^It^ DRTR5lb4,WH0 SANG THE HIT THEME SONG FROM THE JAMES BcND MOVIE GO L OF INGE-" 

ft 7^ 150© 

^1^5 ORTR5165,A> SHIRLEY ERSSEV^ 1 

5l6e DATR5166.B? SHEENA EASTuN,2 
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■5167 DRTRSiePVC? NHHCV SlNHtftfii 3 

5166 DRTA5163 FETER N0OHE W«S THE STAR OF WHICH ENGLISH SINGING GROUP ?, 15 

60 

3169 PRTR51*3.H ■ HEfllilN S HERMlT^l 

5170 DRTH3170..S> THE SEARCHERS, 2 

5171 DRTA5171,C> THE MOODV BLUEST 

5172 DRTR51 72. > WHO I4RGTE THE SONHV FtND CHER HIT SONG THE BERT GOES ON ^2000 

3173 Df\J R-5t73.fi> NEIL DIAMOND,! 

3174 DRTR5174,B> BOB OVLAN,2 

5173 DRTR5175.0 NEIL SEDflKR * 3 

5176 DRTR5176/WHHT WRS ELVIS PRESLEV S FIRST HIT ? , 3O00 
3177 □RTR3177,R> 8LL"E SUEDE SHOES ■ 1 

5178 DRTR3173 ■ B> HOUND Duo . 2 

5179 ORTA5173C C :• HEARTBREAK HOTEL, 3 

5130 DATR5itt0, SIMON & GARFUNKEL HERE OR1GINALLV CALLED WHRT NAME 1500 
5181 0ATA5lSt,A> TOM & JERRV, 1 
5162 DRTA51S2,B> THE TEENAGERS > 2 
5183 DRTA51S3,C> THE t*URK TWINS, 3 

3134 DRTRS1S4* ERNEST EVHHS S STRGE NAME IS ?,3w00 

51B5 DATR5135>A> FRTS DON t NO, I 

5186 DKTR5 18(5, Bj MERTLORF, 5 

5137 DRTR5l87,C> CHUBBV CHECKED, 3 

3t88*0flTR513e,WHAT GROUP DID ERIC BURDON STRfcT AFTER LEAVING THE RNIMALS ^-2*00 
5183 DATR51S5' t R ? CRERM, 1 
5190 OPTR5i30,B; WRR.-2 

5151 DRTR3191,C^ DELRNEV 4 BONN IE, 3 

5132 DRTR5l32,WH0 HRD R BIG 60S HIT WITH THE SOHG BERNHDEl TE ?,150S 

5133 DRTA5193,A> THE TEJ1PTAT IONS, 1 

5194 DATR5194,SO THE TRRMMPS,2 

5195 DRTR5195,C> THE HOLLIES, 3 

5136 DRTR 51 36 > WHICH SONG DOES NO E MENTION GREVHOUND BUSES ?.. 15QO . 

5197 DRTA5157,R> BUS STOP BV THE HOLLIES, 1 

3198 DRTR5 136 > 8 ^ RHMBLIN MRU BV THE ALLMRN 8*00,2 

5133 DATR5 150,0 RMER ICR BV S1MQN QHRbUNKEL.S 

5200 DRTR520G, WHERE IS THE THE BERNESE OBERLRND V, 15-00 

5201 OATR5201* R> SWITZERLAND.. 1 

5202 DRTR3202,e:> GERMANY, 2 

3203 DRTR52BS,C> KENVA.3 

3204 DRTR5204, WHRT IS THE CAPITAL OF LUXEMBOURG v,13kjtf 

5205 OR T A5 2 95 , R > LUXE MBOU R 01 T V , 1 

5206 ORTR520CB^ VADUZ, 2 

5207 DATR5207.O THE HAGUE, :J 

3208 DRTR520S, WHICH IS NOT R ORRR I BERN ISLAND ? ■ 2G00 

5209 DRTR5209,R^ ST MRftTIN.l 

5210 ORTR5210,B> GURM 2 

5211 DATR521i,C> ARUBA * 3 

3212 0RTR3212.THE ORIENT EXPRESS ORIGINATES IN WHRT CI TV ?,3000 

3213 DRTR521S,R^ PEKING, 1 
5214 0RTR3214,B^ LONDON, 2 
5213 DATR5215,C; PARIS, 3 

5216 DRTR5216, ICELRNO BELONGS TO WHRT COUNTRY' 7,3000 

3217 DRTR5217.R:' GREENLRND, 1 

3218 DRTR521S,B^ CRNHDR, 2 

5219 DRTR5213.0 DENMARK.- 3 

5220 DRTR5220, SCHIPHOL PURPORT SERVES WHICH CITV ? , 300O 

522 1 DRTR522 1 * R ? JOHANNESBURG , 1 

5222 DRTA5222,B> NICE. 2 

5223 DRTR5223.C:-' AMSTERDAM 2 

5224 DRTR5224, WHICH CANADIAN PROVINCE IS THE FARTHEST WEST ?,30OG 

5225 DRTR5225,R^ BRITISH "COLUMBIA 1 
522(5 0RTR5226.B> RLBERTR ■ 2 

5227 DRTR5227, O VUKON, 3 

3228 0RTR522S; WHEfcE IS GRANT'S TOMB ^,2000 

5229 DPTR5229..FO CH10.1 < 
3230 DRTR5230,B> NEW V0ftK>2 j 

5231 DRTR5231.C:-' WRSHINOTOH DO , 3 

5232 DRTR5232, WHRT IS THE SECOND LHRGEST CITV IN FRANCE ?, 150O 

5233 DRTR5233,R) LVON, 1 \ 

5234 DRTR5234.B> SfRRSBOUPG^ 

Un < H^t J^i O-' llllKit lL.Lt > t 

5236 DRTR5236, WHICH OF THE FOLLOWING IS NOT R CflPITRL CITV 7,3000 

5237 DRTR5237,R^ BUDRREST.t s 
5239 DRTR52ii8., B.' BELGRADE.- £ 

5233 0RTR5239,O MUNICH. 3 \ 
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UNIT:7 



Experiment 7,1 



5 PR INT "SCREEN COLOR SELECTION" 

10 INPUT "SELECT BORDER COLOR BV NUMBER U- 16V JO 

20 COLOR 4, C 

30 FOR Xl=*l TO 16 

40 COLOR 0, XI 

50 FOR *2-l TO 16 

60 IF K1-X2 THENX2-X2+1 c IF X2>16 THEN X2-1 
70 COLORS, X2 
30 PRlNT 'rJ" 

90 PR I NT "HOW DOES THIS LG0K7" 

1B1& INPUT "DO VOU WANT TO KEEP THIS COLOR COMB I NRT I ON " ; K* 

110 IF K;*-"V" OR K*-"VES" THEN END 
120 PRINT"" 

130 IF X2-I THEN BEGIN 

135 IF XI =16 THEN BEG I N ' PR I NT "LAST BACKGROUND COLOR RVRILRBLE" 

136 INPUT"DO VOU WISH TC START AGRIN'S = BEND = GDT0145 

140 INPUT "DO VOL WANT TO SKIP TO THE NEXT BACKGROUND COLOR" ; C* 
145 BENO 

150 IF C*-"V" OR C#- M VeS" THEN C*-" " - GOTO 170 
160 NEXT X2 
170 NEXT XI 
i rrnrn 1 pi 



Experiment 7.1/4 



5 PR I NT " SCREEN COLi^R SELECTION" 

10 INPUT "SELECT BORDER COLOR BV NUMBER -:i-16>".iC 

20 COLOR 4,C 

30 FOR XI=1 TO 16 

4Q COLOR 0jX1 

50 FOR X2=l TO 16 

60 IF X1=X2 THENXa=M£+i ' IF M£>16 THEN X2=l 
7^ COLOR i,X2 
SO PR I NT" 77" 

90 PR INT" HOW DOES THIS LOOK? 11 

10tJ INPUT "00 VOU WHNT TO KEEP THIS COLOR COMBINATION" ;K$ 

11© IF KS="V" OR K*="VES" THEN ENO 

12V3 PRINT"" 

130 T. F X2=l THEN 14© 

n5 IF XI =1S THEN PR I NT "LAST BACKOROUNO COLOR RVfllLfiBLE" 
137 GOTO ISO 

140 INPUT" WANT TO SKIP TO R NEW BACKGROUND COLOR" ; C* 
150 IF Ct="V" OR C*="VES" THEN GOTO! 70 
160 NEXT K2 
170 HEXTX1 
150 0OT01S 



Experiment 7.2a 



*G COLORS 1 

20 GRAPH I CI i 

3 & COLOR l ,S C0LOR4, 1 

FOR :>Q TO 313 
50 V=i5?-<x-iG0>T2.-169 
* 6 ORANl f y, V 

NEXT 
3Q END 
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Experiment 7.2b 



l© CCLORO, 3 

20 GRAPHIC i > I 

30 COLOR 1 > 2 - COLOR 4 > 3 

40 FOP J-0 TO 35* 

50 v=l6.0+&O*^-INv J*fi/130 

&» V = ie*+60*CuSCJ+ir/18lB> 

70 DPftWl.K.V 

so next j 

90 END 



Experiment 7.2c 



10 CGLOR0 j 15 

20 GRlnfF'H '[. C 1 , 1 

r;:0 '- GLuft 1 .■ 7 : CUL.GR4 ■ 15 

40 FOR X=i_i TO l:l.:=* 

5 1 j v = l 00 +- S' 5< *s r n t: x. ■ 1 2 a :> 

70 DRftHi , K .1 Y 
30 NEXT X 
?0 END 



Experiment 8.2a 



10 GRHPH1C3 .■ 1 1 C 1-12 
15 CCJLORO, 1 
20 C0LUR4, 1 
25 C0L0R1 jCM 

30 x-10 : v-20 

35 CIRCLE! > X, V, 12,2* 
40 FOR TO 15 STEP5 

45 CIRCLE! ,X, Y, 12,20, , ,R 

SO NEXT R 

65 FOR TO STEP15 

70 CIRCLEI,X,V,-12,20, ■ ■ R 
75 X=X+5 Y=Y+5 

NEXT R 
3i0 FOR FI-60TO9O STEP 15 
95 CIRCLEl , X, V, 12,20, , ,n 
100 X-X+2 i 
105 NEXT F) 

:hj douhttl v: ieo 

120 CIRCLEl > X, Vi 12^20, ^ ,9© 
tse X-X+2-V=V+10 
140 LOOP 

150 IF CtM THEN GRAPHIC END 
1.613 Cl-i <G0T0£5 



UNIT:8 



Experiment 8.2b 



Experiment 



1 51 COLOR©, 3 ' C0L0R4 , 3 ' COLOR 1 , i 

20 GRRPHICI, 1 

25 WIDTH 2 

38 X=Q V^=0 F^i 

4© FOR V=0 TO See STEFlO 

43 F=-<F> 

50 fi=X B=V G=R+29 D=B+iO 
60 FOR HH=1T016 
7@ BOXi,FbB,C,a 
90 pi-A+20 c^c+ae 
lGO HLX"! LIU 

200 IF F<0 THEN X»ieiELSE 216 
210 NEXT Y 

BOX 1 ■ y . O .319,1 99 
230 GETKEV 'GftMPHICO 



5 2=1 

10 GRAPHICS, 1 
15 S»e© * T* t 00 
20 FOR 13=1 TO 9 

31 X=tO 

32 V=S 

45 IF Z>e THEN M=l 

46 IF Z-C0 THEN \A*2 

5© CIRCLE W,80, 100, T 

ee PRINT n,so, too 
65 S=3-V^T=T-X 
€■? Z~ C-Z3 
70 NEXT Q 

=St3 QETKEIVh* : GRRPHIC0 



Experiment 8.3 (o,b&c) 



Experiment 8,1b 



5 ERRFHIC4, 1 COLQRl ,3 
10 EiOXl , 150, 150,75, 75 
20 B0X1 ■ lOO, 100, 25 ■ 25 
30 DRRH1, 150, 15010100/100 
40 0RRW1,73,75T025,25 
5© DRRW1 ,75, 150TG25, 1 
60 DRHH1 , 150, .'5TO100- 
70 SLE E F 1 ^ROFH 1 CC LR END 



OLORO- 1 =-tOL0R4j 1 



1« COLOR0,15;COLOR4p1 

15 GRflPHlC4il 

H F0RX=6B TO STEP -4 

2? CIRCLE2, 75,90, X, X Z 

22 NEXT X 

25 FOR X= 2 to 60 STEP 4 

3« CIRCLE3, 75,90, X, X,,.,Z 

42 NEXT X 

j; FORX=&0 to 8 STEP -4 

H CIRCLE*, 75, 90, X, X,,,,Z 

™ NEXT X 

FOR TO 60 STEP 4 
CIRCLES, 75,90 X, X,,,,Z 

}J» NEfeT X 

JJ* F0RX = 6B to STEP -4 

!2B ClRCLEfl.75,90, X, X, ,,,Z 
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130 NEXT X 

140 FOR X = to 60 STEP 4 

158 CIRCLEi, ?5,9&, X, X, , , >2 

1&0 NEXT l A 

170 F0RK=&2 to (J STEP -4 

1S0 CIRCLE*, 75,50, X, X, , , ,Z 

150 NEXT K 

200 FOR N = tc 60 STEP 4 

210 CIRCl_£0,75,90, X, X, , r >2 

220 NEXT X 

Additional lime for correct shape: 

Answer A: 

16Z = 20 

Answer B; 

16Z = 90 

Answer for C 

16Z = 27.69 



Experiment 8.3d 



10 C0LQR1 , 1 CGLGR4,2 >CrX0R0,2 

20 GP.R.PHIC1 , 1 

30 CIPCLE1, 166, 100,90,4!:} 

40 FOP A 1=0 TO 360 STEP 30 

5ff R2=H1+15 

60 CIRCLED, l€tf, 130 , 9S, 45, Rl , A2 
7© NE'XT Ri 

S0 GETKEVftt : GRAPH I C0 1 



Experiment 8.4a 



is colors, 2 

20 GRAPHIC! , 1 
30 COLOR- 1 .■ 1 

40 REM*****&CUE3 IN DIFFERENT PLACES 
56) FOR J=12 T02Si STEP 3© 

eo for k=s Tnues step 15 

76 BOX! J,K, J+25,tf+12 

SO NEftTK .. .J 

90 PAINT! ,1,1 

100 GETKEV AT- GRAPHIC O 



Experiment 8.4b 



L GRAPH I CCLR ; GRAPH I C3 , 1 
20 COLORS j 1 
30 UJLLIR4, 1 
40 COLOR 1,3 

45 FGPW=1 TO ISO STEP 20 
50 FORV-1 TO ISO STEP 30 
60 B0W1 v >C, V, ft+20, Y+30 
€5 NEXT V,tf 

70 DRAU1, 159, 1T0159, 190 
S0 FOR X=l TO 160 STEP 40 
S5 FOR V=l TO 180 STEP -SO 
9© FAINTl, tt+1 , V+1 
100 NEMT 

105 FOR tt-20 TO 140 STEP 40 
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110 FOR Y=3Q TO 150 STEP £0 
115 PAINTl,X+£, Y+2 
120 NEXT 

12:5 GETKEV A* GRAPHIC © 



Experiment 8.4c 



5 C0L0P4, 1 COLORS 1 
10 GRAPH I 04, 1 
15 SLEEP 1 

20 REff*******BASIC HOUSE********* 

30 BQX3, 20* 90, 30, 120 

35 DRRW2 , 20 , 90TD35 , 60TO50 , £0 = PR I NT 3 . 25 , 85 , I ; PA I NT2 -10, 1 00 , 1 
40 REM###***HOUSE SIDES********* 
45 SLEEP 1 

draw2,s5,60TQ so, 78 

55 DRAW2, 50,901090,94 
60 DRAW3, 50.- 12OTO90, 10& 
,-■0 DRRN2 ■ *>0 .■ 9OTO90, 94 

SO DRAWS , SO j 78TO&0 , S4TO90 , 109 ; PA I NTS , 65 , SO , 1 ; PR I NT2 , £5 , 115, I 
85 REM******HOUSE WINDOWS******** 
96 SLEEP 1 

95 B0K3, 55,98, 70, 106, 1 
100 B0K3, 75, 99, 86, 105, 1 
110 DRAWS, 62, 106TO62, 98 
lt5 ORANSjSS, 102TO7O, 102 
120 DRAWS, BO, 92TQB0, 104 
125 DRAWS, 75, L02T0S6, 102 
130 SLEEP1 

135 REN****#****D0OR***+++****+*** 

140 60X3,32, 105, SS, 1 20 : PA INT3, 33, 110 
145 DRAW2,36,112 

.1 59 F: E n*** * * ** m n re m 1 NDuw l; ******* + 

155 60X3,23,95,29,103 

160 80X3,41,95,47,103 

163 DRAWS, 26, 95T026., 103 

170 DRAWS > 23 , 99T029 , 39 

173 DRAWS, 44 , 95T044, 1 03 

1S0 DRRWS,4l>99T047,9Si 

185 REM*****#**ROOFING**********#** 

190 SLEEP 1 

195 DRAW2,83,82T040,e9 
200 □ RRUJ2: , 42.- 74T 085 , 3 5 
210 DRPW2, 44, 79T037, S9 
£13 DRAW2, 47, S4T089, 92 
220 SLEEP1 fCOLORl,e 

2^5 PEht*****##H0RIZCi*4******#****#*** 

i30 DRAW 1 , 169 j 1OOTO90,95 : DRAiJ.l > SO.- S9T01 , 35T01 > 150TO160, 150TO16O^ 100 
235 PR I NT 1, 110, 110, 1 ■ REM PAINT GRAS3 GREEN *- Line with answer 
^40 C0L.OR4, r:C0LORO,7^SLEEPl 
245 0IRCLE2, L=?0, 50, 10, 10 
256 PAIHT2,9e,50 

235 1 RCLE2 , 73 , 30 > 15 , 1 5 PR 1 NT 2, 75 , 30 
2>50 C I ROLE 2 , 95 , 35.- 10, 10 ; PR I NT2 , 95 , 35 
-70 01 ROLE 2, 140v 35, 13, 10 = PAINTS, 140,35 
2 PS CIRCLES, 118,25, 12, 12- PAIUT2, 1 IS, 23 
280 L-OLOR I ■ S 

233 CIRCLE 1 , 20, 10, 5/ 5 -PRINT 1, 19,11 
1000 GETKEYA* GftfiPHI CCLR : END 
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UNIT:9 



Experiment 9.1 



10 graphics, i 
20 ci = iMT';R:NCK l 

30 C2=IMTc;rhci<' 1 :-*S+i '> ■■ IF C2~C1 THEN GOTO 30 

40 C3=INT<RND< 1 >#S+1 > : I*- C3=C2 OR C'i-Cl THEN GOTO 40 

SO COLOR I .■ CI ■■ COLORS, Ct : COL. DP. 3.. C 3 ■■ CD LOR 4 , 1 - COLOR© > 1 

70 X^10 

80 V-l© 

90 XL=4 ' VL=2 

1 00 BOH 1 , H , V , !<;+45 .■ V+45 ■ H-X+L = V= V+.L 

110 FOP H-l TO 50 STEF' 10 

120 B0H2, X , V , X+45, V+45 : H=H+HL = V-V+VL 

i so e?ox3 , x , v , x+45 , v+45 : x=^+xl ; v=v+ vl 
140 bohi / XjV,^, v+45 j w*k+ml ■■ v-v+vl 

150 NEXT A 
155 V=V+5 

160 FOR h=30 TO O STEP -10 
170 BOMS, ^V, X+45 > V+45 - X=X- XL = V= V+ VL 
ISO B0X3 ..w ( V. X+45 , V+45 ; tt=X-HL ' V-V+VL 
130 BOH 1 , X , V ■ X+45 , V+45 = X~X -XL = V=V+ VL 

£oo next r 

205 FOR 0-1 TOISOO HEHT D 
210 GRAPHIC CLRGQTOIO 



Experiment 9,2a 



10 GRfiFHI C4 > \ 

20 colors, i color 1,5 = cqlor2,b color 3, 6 +™ Line with answer 

39 FORA^l TO 45 ■ REM DRAW TR I -COLORED RING 

40 80X1 , 30, 30 .- 45 j 45, fl 

5© BOX2,30,30,45..45, <;22.5+A> 
60 BOX3,30,30,45,45,<45+A> 
70 NEXT H 

30 S3HAPE A*, 20,20,50, 50= REM SAVE RING SHAPE 

90 BOXi, 5O.-20,30, 50, , 1 

100 BGX2,30..20^ 1 10, 50, , 1 

11© 60X3,110,20,140,50, 1 

115 REM REDRAW SHAPE; ON COLORED AREAS 

120 GSHAPE H*,G2,20,4 

130 GSHAPEA*, 92,20,4 

140 FOR O£=1TO200 NEXT DE = REMDELAV LOOP 
150 GSHAPE h*, 62, 20, 4 
160 GSHAPE R$.32,20,4 



Experiment 9.2b 



10 GRAPHIC 2, 1 

2B COLOR e^l^COLORl.S 

30 INPUT" INPUT X CHARACTER POSITION OF VOUR TEXT" J X 
4Q INPUT" INPUT V CHARACTER POSITION OF VOUR TEXT";Y 
50 INPUT" TEXT STRING tLESS THAN 20 LETTERS V ; Rlf 
60 CHflRl,X, V,R1* 

7Q S5H APE A* j CH*8>, <Y*S>, <X+2£j>*i3, <V*S>+7 
30 INPUT" INPUT K PIXEL POSl T ION" ; XI 
90 INPUT" INPUT V PIXEL POSITION"; VI 
100 GSHAPE RJ.Xl . VI 
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Experiment 9.3 



C128 

10 COLORS / 1 

20 COLORl/7 

30 C0L0R4^ 1 

40 GRAPH ICl , 1 

45 FOR I-S0TO240 STEP10 

60 CIRCLE1 , 1 , 100? 75 j 75 

S5 NEXT 

70 SCALE 1 .■ 400,300 
30 COLOR! , 3 

30 FOR I-1G0TO-30O STEP 10 
100 ClRCLEl , I , 150, 75,73 
110 NEHT 

120 SLEEP 3 1 GRAPHIC 



UNIT:10 



Experiment 10 Jo 



10 VOL ? 

20 SOUNDS , 40O , 6&0 
30 FOR J=l TO 10 
40 30UHP1, 375,5 
50 SOUNDl ■ 1020,60 
60 NEXT J 

70 FOR X=400 TO 900 
30 SOUNDS, X,l 
90 NEXT X 

100 FOR V-8 TO STEP -1 
110 VOLV 

120 SOUNDS, 950, 60 
130 NEXT V 



Experiment 10. lb 



50OO REM RIGHT ANSHER 

3005 FOR L=l TO 3 

SO 10 X=B34 

3020 FOR C=1T0 4 

3630 SOUND2,X,3 

3040 SOUNDS ,1023,1 

3050 X-X+30 

3060 NEXT C 

3£i?0 NEXT L 

+900 Rem WRONG ANSWER 

40 lei SOUND I ,50,60 

4020 30UNB3 ,1010,60 

403© FOP J-i TO 1000 NEXT J 



Experiment 10.2 



10 VOL 7 

£ G READ X , V ■ REM GET VALUES FOR NOTE 



35" IF H=0 THLH END 

49 SOUND 1,X,V= REM PLAV NOTE 

30 SOUNGl, 1023, £'REM CPE RTF. hap 

60 GOTO 26 3 REM HEtfT NOTE 

ie0 OflTfl 873,5,854,5, 8:^4, 3,^4, !3,S34, 5, 9£S, 5, 834, 10,722,5,739,5 

11^ DATA 770, 5,?9£,5,770,5, 722,5, 770, 10,334,5, 854, 5 

I20 OflTA 973. 10,878, 10, S?3 , 5, S54, 5, S:34 , 5, 654 , 5 

US DATFf 8^3 10^854, 10, 354, 10, S73, 5 ©54, 5 

140 DATA 834,3,054, 5> 834 , 5.- 822, 5, 834, 19,722,5, 739,5 

150 DATA 770,5, 798, 5, 778, 5, 722, 5, 770, IS, 334, 5,354,5 

160 DATA 873, 5; 897, 10, 91 1 ,5, 897, 5, 873, 5,934,5, 854, 5- 

170 DRTfl 973^ 10, 854, 10,S34, 10, 1020, t0 

188 DATA 973,3,397, 10, 973,5, 837, 10,897, 10 

190 DATA 973, 5 j 397^ IS > 873,5,897,20 

200 DATA 881,5,811,10,381,3,911,10,911,10 

210 DftTA 881 ,5, 91 1, 10,891 ,5, 311 , 18, 91 1, 5,823,5 

220 DATA 929,18,929,10,897,10,397,10 

230 OATfi 873,10,873,10,854,10,334,5,854,5 

240 DRTfl 373,5,897,10,911,5.897,5^873,5,834,5,854,5 

250 DATA £73, 1G. 8^4, 10,834, 10,0,0 



Experiment 10.3 



16 COLOR0.5 COLOR42 REM COLOR BACKGROUND , BORDER 
20 PR INT"** # *** # # *** # *#** * ***** *** 4c** " 
30 PRINT" r^Jfc** **** * **** **** *** * * * *** $ 

40 FOR tf=l TO 21 'REM CRERTE BORDER 

50 PRINT"* *' J 
S0 NE^T X 

70 PR I NT "*********************#****#****##**#**## 11 
80 PRINT ,l *-RES£ flHV KEV FOR NEHT SOUND 
90 HIND0H2,3,3S,21 
100 VOL 7 

110 V= INT < RNO < > *3 > + 1 ; REN VOICE 

120 F=INTK!PNDi.0>*6;5535; + l REM FP.Eti 

130 D -INTCRNCK0^*327S7>+1 ^ REM OUR 

140 DR=INT<RHD^0I'#3> -REM DIR 

150 M"IHTvRND<0>*i55535> + l REM MIN 

160 S= I HT <: RNO £ ^ *32767 -> + 1 = REM STEP 

1 70 N= I NT C RND< O > *:3 !) + 1 » REM WAVEFORM 

ISO P=1NT<:RNO<0^*4095>+1 : REM PULSE W 

190 C=INT*:RHD<e>#lG>+l REM CURSOR COLOR 

200 IF C=5 THEN 190 : REM REJECT BACKGROUND COLOR FOR CURSOR 
210 COLORS, C 

PRINTV : F;D, BR, M ; 3; W J P - PRINT > PRINT 

239 SOUND V,F,D,DR,M,S,iJ,P:REM MAKE SOUND 

240 GETKEV A* REM WAIT FOR USER 

250 SOUNDV,0,0,DR,0,O,W,P - REM STOP SOUND 
260 GOTO 110- REM NEXT SOUND 



Experiment 10.4 



10 TEMPO 3 

20 FOf X- 1 TO 2 

30 PLAV "03 I A 04 SO#FED 03 188 AA 004 OD I EE #F#F 

40 PLAV'SEttFED 03 IBA 04 SDttFEO 03 IE B ft A 04 SD*CO 03 AB 04 D 0=3 AO 

50 PLAV04 #F C'Ettu 10 

€0 NE^T X REH REPEAT FIRST HALF 

70 FOR V- 1T0 2 

30 PLAV l S#FOftO#FAO#FEO#FED#FE*C 03 IA" 

SO PLAV "04 SO*C0#FEDEG*FE#FA IE S^FC- AOttFAOttFEO #FEDHFE*»C 03 I A" 
100 PLAV" 04 SO#CD 03ft B 04 D 03 AG#F 04 DE*C ID 
110 NEXT V : REM REPEAT SEC WD HALF 
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Experiment 10.5 



10 FILTER1400, 1,0,0,5 
20 ENVELOPES, 4 ,5,9,3-2,2:000 
30 ENVELOPES, 0,3 V 3. e, 2, 2000 
40 TEMPO 15 

SO PLAV"V1T0 XI 04 Oft.QA V2TS Ml . Q#F VlTO IG V2TS IE V1T0 Q#F V2TS O 
60 PLAV'VlTe 00 V2T8 E V1T0 A V2TS ttF V1T9 V2T8 E 

70 PLRV"V1T0 - Q#F V^TS D VlTO IE V2T8 03 A VlTO 04 QD V^T8 03 0#F 
St? PLAV "V2TS 03NA VlTO 3>4 0*tC 03 ft VlTO A V£TS Q 

30 PLAV "VI TO 04 . QD V2T3 03 #F VI TO 04£#C V2T8 03 A VI F0 04 QD V2TS 03 #F 

160 PLAV" VI 04 E V2T3 03 G VI TO 04 ttF V2TS 03 A V1T0 04 G V2T£ 03P- 

lit* PLBV^V2T8 vtT^ 04 r r #F E ^rr- rr? #f ViTi5 ^1 

120 PLAV'VlTe 04 HE V2T3 03 ttG 04 #C V1T0 R V2T8 ttC 

130 PLAV'VITO .OA V2T3 D V1T0 10 V2T8 03 B V1T0 03 0#F V2TS 03 A 

140 PLAVV2TS 03 H8 VI TO Q4 OGA V2TS #C VlTO O 

150 PLftV J, V£T8 04 HD VlTO . 0#F IE V2T8 03 QA VlTO D4 D 

160 PLAY " V2TS 03 HG VlTO 04 Q#C Q? A V2TS E V170 A 

170 PLAV'VITO 04 . &D VXT8 03 #F VI TO 04 IQ V2T3 03 E V 1 TO 04 00 V2TS 03 #F 

180 PLAV "VlTO 04 QE V2T9 03 G VlTO 04 #F V2T3 G3 A VlTO 04 G V2TS 03 B 

190 PLAVV2T8 03 Hft VlTO 04 0#F 4»C V2TS 03 OG VlTO 04 E V2T^ 03 HttF VlTO 04 AO 
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Experiment 1 l h 2 



5 REN***** SET COLORS AND GRAPHIC MODE ***** 

10 COLORE .■ 7 

2© C0L0R4,7^C0L0R1,7 

39 GRRPHIC1, 1 

4y REP1***** DRAW FISH TANK BOTTOM ***** 
5© C0L0R1, 13DRRUl,e, 144TO320, 147 

51 FORN=1TO209 

52 X=<!319*RND<:0}} =V=C146+^RHD<05*39>> 
5S C=<I+<15*RND<0>>> 

54 COLOR 1,C 

55 BRftWl^X^V 

56 NEXT N 

?0 REM***** DRAW R BRIDGE BV DRRNING TWO CIRCLES ***** 
75 COLOR 1,6 

39 CIRCLE 1,2©0, 160,30,30,270,90 
90 CIRCLE! , £55.- 160, 30, 39, 279^90 
100 DRAW1,250, X60TO225, 1£0 
110 DRRW1,319, 160TO2S5, 160 
120 tiRRWi,2S9, 130TO250, 130 

139 PRINT 1,245, 157 

140 PRINT! , 250^ J. 44 : PATNT1 , 290, 159 
150 PRIMT1,235, 141 PfiINTl,265, 131 

I SB REM***** QRfiW A TRHK CRSTLE ***** 
179 COLOR!, 1 

130 B0X1, 100, 100, 195, 149 

138 CIRCLE! ■ 14S ■ S5, 55, 30, , , , 1^0 

299 B0X1 100,50, 117.L 100 

216 BOXl, 195,50, 178, 100 

60^1,95,50,122,60 
230 BOX1,200,59, 173,60 
^-*0 CIRCLE!, 147,89,7,5 
^"50 OR AW 1 , 1 47 , S0 TO 1 47 , 75 
2^0 ORfll-j 1,147, ^1:^ TO 1 54 , 30 
270 DRAW!, 147,39 TO 147,35 
239 DRAU 1 , 1 47 , 89 TO 148,80 
^0 BO-AX , 132, 145, 162, 125 

C1RCLE1, 147, 125. 15, 15,279,90 
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296 DRAWO,* 133.. 125T0161-, 125 

300 CIRCLE!, 99, 46.. 5.. 5, , , , 1 20 * CI RCLEl j 1(33,46, 5,5, , , , 12© 
310 CtftCLEl , 117,46,5,5, , , , 129 ' CIRCLE i.. 177,46,5,5, , , , 120 
320 CIRCLE 1, 136, 46,5.5. , , .. 120' CIRCLED 135, 46,5, 5, , , , 120 
330 REtf***** PRINT THE TRNK CRSTLE ***** 
346 PR I NT 1 , lOl , 10t 

358 PRIHT1, 105, S3 : PR I NT 1 , 167,35 
Sfc-tf PR I NT 1 , 1 i . 70 : PR I NT 1 , i 90 , 39 
3?0 RR I NT 1 , 1 94 , 70 : PR I N T 1 , 194,59 
330 PR I NT 1 , 1 74, 59 : PR INT 1 , 199, 59 
335 PRINT!, 193, 147 

390 PRINT1, 199,55 ^ PR INT 1,99 ..59: PRINT 1 , 116, 59 : PR INT 1 , 1 21 , 59 
480 PRINT1 , 100 ■ 47 = PRINTl , 109, 47 
419 PRINT!, 113,47'PRJNTl, 173,47 
42© PR INT 1 , 137 , 47 ■ PR I NT t , 196, 47 
43© COLOR 1, IS 

44© REM***** ORRW SEAWEED ***** 
445 WIDTH 2 

450 ORRW 1 , 50 , 144T035 , 160 ■ ORRW 1 , , 144T055 ,110: DRRW1 ,5(3,1 44T065 , 90 
455 WIDTH 1 

4S0 REN***** SET CCLCR FOR THE SPRITE ***** 
470 COLOR 1 . 15 

480 REM***** DRAW FISH SPRITE BY COMMANDS ***** 
490 80X1,2,2,45,45 
583 C0L0R1 ,5 

510 CIRCLE1, 19,21,7,3 REM **FISH BODV#* 

520 DRRWl ,26, 19TQ32, 17T029, 20TO32,23TQ26.. 21 ; REM **FISH TRIL** 
530 REM***** DRRW FISH FINS ***** 
540 DRAW1, 18,24 TD24,30TO22, 24 
550 DRRW1, 16, 1ST022, 13T021, IS 
560 0RRW1 , 14, 24T013, 271016,24 

570 REM***** FILL IN BODV RND ORRW EVES ***** 
5Su PR INT 1 , 19>21 ■ CIRCLE©, 15,20, 1 , 1 = PRINTS, 14,20 
535 00^0,2,2,45,45 

539 REM***** DEFINE SPRITE COORDINRTES IN F* RND SRVE RS SPRITE 1 ****** 
690 SSHRFEF*, 12, 14,33,3S-SPRSRVF$, 1 =SPRITE1 , 1 ,5, 1,0,0,0 
610 REM***** CLERR THE SCREEN ***** 

629 COLOR! , 7 

630 BQXl , 10, 12, S3, 30, , 1 
640 BOX®.- 2,2,45,45 

650 PRINTS, 3,3 

700 REM***** PLRCE FISH SPRITE ON THE SCREEN ***** 

710 M0V3PR1 . 1.50, 150 ■■ MuVSPRi , 270#2 

720 REM***** MOVE EUSELE SPRITES ***** 

730 SPRITE?, 1, 15, 1,0,0,0 

740 M0VSPR7 , 90 , 1 OO : MOVSPR7 , 360#3 

750 SPRITES, 1,6, 1,0,0,0 

760 MOVSPRS , 260 , 1 00 : M0V3PRS, 360# 1 

7£5 COLORS, 1 * COLOR 1 , 2 

770 REM***** MOVE FISH SPRITES ***** 
775 FOR T= 1 TO 10 
7S0 PGP. N=2 TO 6 

735 s=int<:rnd<:ij'*3+i> 

790 fi- 1 NT < RND < 1 > * 1 > 
795 1 = I NT <: RND v L > * 1 2+ 1 > 
300 C- I NT RND -: 1 > * 1 3+3 ]■ 
305 SPRITEN, % , Cv 0,0,0, 1 
310 LH-2; ? 0-R^PR=9O+R 

315 PEH***FISH FRCINCi LEFT MOVE LH**FISH FRCIHG RIGHT GO RR 

320 IF N>4 THEN 340 

©25 MOVSPRN, LRftS = LR^270+R 

330 SLEEP I 

835 MOVSPRN, LR#S : OOTO 350 

340 MOVSPRN ... RR#S : RR~90-R : SLEEP I 

S45 MOVSPRN,RH#S 

350 NEXT M 

S55 NEXT T 

360 G0T0775 
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APPENDIX 

c 



GLOSSARY OF COMPUTER TERMS 

A 

address 
algorithm 

arithmetic operator 

array 

ASCII 



a number or name for a memory location 

a series of steps which solve a problem 

a symbol used to represent an arithmetic 

function; for example, + ,- 

an arrangement of data in the computer's 

memory 

code that translates computer symbols into 
letters, numbers and other characters. Short for 
American Standard Code for Information 
Interchange 



B 

BASIC 



binary 
bit 



bubble sort 



bug 



a common programming language; short for 
Beginner's All-purpose Symbolic Instruction 
Code 

a numbering system where all digits are or 1 ; 
also called Base 2 

the smallest piece of information a computer can 
understand; short for Binary Digit 

a method of arranging a list; usually used for 
short lists 

a programming error 



cassette tape 
chained 

channel 

code 

command 
concatenation 

condition 



a magnetic tape used to store computer data 
linked together one after another; also called 
daisy-chained 

a connection between your computer and other 
hardware 

instructions for a computer 

an instruction for a computer to execute 

joining strings of characters to form a longer 

string 

an expression that is evaluated as true or false 
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coordinate 

corrupted 
counter 

crash 
cursor 



O 

data 

debug 

decrement 

dedicated 

disk 

diskette 
display 

driver program 
E 

edit 

equation 

equivalent 

execute 

expression 

F 

file 

file name 
flow chart 

format 

function 

G 

generate 
GIGO 

graphics 



the exact location of a pixel or other graphic 
element; defined as a single point at the 
intersection of a row and column on the screen 
damaged and unusable (refers to a disk) 
a variable which keeps track of the number of 
times an event has occurred in a program 
program failure 

the flashing square or underline character that 
indicates where the next character you type will 
appear 



information entered into a computer 
to remove errors from a program 
to decrease 

set aside for a specific task 

a flat plastic sheet with a magnetic surface, used 
to store computer data 
floppy (flexible) disk 

1) to print on the screen of a monitor or TV 

2) any characters printed on the screen of a 
monitor or TV; the screen itself 

a short program demonstrating a subroutine's 
purpose 



to make changes to a program 

an arithmetic statement consisting of two values 

defined as equal by the equal sign ( = j 

two values that can be considered equal 

to carry out a command or program 

a combination of values, variables, and 

operators 



information stored on disk or cassette 

a label for a file chosen by the user 

a diagram showing the purpose and steps of a 

program 

1 ) to prepare a disk for use 

2) to arrange output 

an operation, indicated by a keyword, 
performed on a number or string 



to produce results 

Garbage In Garbage Out; 
incorrect data produces useless results 
designs and pictures created by the computer 
and displayed on a screen 
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H 

high-resolution mode 



graphics mode that allows precise control in 
drawing 



increment 

initialize 

input 

invert 
J 

jiffy 
K 

keyword 
L 

language 

logical operator 

loop 

empty loop 

infinite loop 

nested loop 

M 

memory 
microprocessor 

mode 

multicolor 
N 

null string 
O 

output 
overwrite 

P 

parameter 
peripheral device 



to increase 

to set the starting value of a variable 

information entered into a computer for 
processing 

to reverse in position; usually a mathematical 
relationship 



a 60th of a second 



a BASIC command word 



a set of words and rules for the computer to 
follow in creating programs 

a word that links two parts of a conditional 
statement; for example, AND, OR 

a set of instructions executed repeatedly 

a loop which serves to delay a program's 
execution 

a loop that continues until the user stops the 
program; also called an endless loop 
a loop executed within another loop 



the part of the computer that stores data 
the part of the computer that controls the 
operations 

a state of operation; each mode has unique 
characteristics, for instance text and graphic 
mode are examples of screen output modes 
using colors in addition to foreground and 
backgrounds colors on the monitor 



a value for a variable with no characters; also 
called empty string 



results created by a computer 

to replace a value in memory or storage with a 
new value 



value or values following a keyword which 
affect the command's execution; pre-set 
parameters are called defaults 
computer attachments used for input/output; for 
example, disk drives, printers, joysticks 
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permutation 

pixel 

pointer 

process 
program 



rearrangement of a set of characters; for 
example, abc, bea, and cab 
a single point on the display screen; short for 
picture element 

a computer's internal method of keeping track of 
the next command to be executed 
to execute commands 

a series of instructions that perform a specific 
task 



Q 

quicksort a method of arranging a list; usually applied to 

long lists 



R 

RAM 

random number 
recursive 

resolution 

return address 

ROM 

routine 

rules or precedence 



the part of the memory a user can change; short 

for Random Access Memory 

a mathematical value produced by chance 

a series of procedures; each step based on the 

results of the previous step 

sharpness of detail on the monitor screen, can 

be high or low depending on the number of 

pixels 

the line number to which program control is 

returned following a subroutine's completion 

the permanent memory in a computer; short for 

Read Only Memory 

a set of computer instructions 

rules determining the order for carrying out 

arithmetic operations 



S 

sequence 
sprite 
statement 
string 

subroutine 

subscripts 

syntax 



a series of events occurring one after another 
programmable, movable graphic elements 
a program line 

set of letters, or letters and numbers, used as the 
value for a variable 

a set of program lines that perform a task 
independent from the rest of the program 
elements that identify a particular value in an 
array 

the correct form for BASIC commands and 
statements 



T 

terminator 

text 
trace 

truncate 



the ending value of a loop variable; when the 
terminator is reached, the loop is completed 
output consisting of letters and numbers 
a debugging tool which imitates the computer by 
testing program lines one by one 
to cut off; for example, the INT function truncates 
decimal places and returns only whole numbers 
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V 

variable a label for a memory location in the computer 

W 

window pa rt of the screen identified as a work area 
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Arcs 
Arrays 

Aspect ratio 

BEGIN/BEND 

BIOAD 

BOX 

BSAVE 

CHAR 

CIRCLE 

Clearing the graphic 
area 

Clearing the screen 

COLLISION 

COLOR 

Color 

Color sources 
High-resolution 
Multicolor mode 

Coordinates 
Character 
High-resolution 
Multicolor 
Relative 
Screen 

Data Input 
Debugging 
Delays 

Disabling RUN/STOP 

DO/IOOP 

DO UNTil 

DO WHilE 

Dot plotting 

DRAW 

DRAW TO 

Drawing 

Circles 

lines 

Points 

Rectangles 

Shapes 



21,23 
68 

1,7-8,45,50,51 

105 

64-66 

105 

76-77 

64,67-70 

54,74 

107 

107 

2, 45, 47, 55, 74 

55 
56 
56 

76 
54 
54 

111-113 

54,58-60,67,71 , 

76,80 

39-44 

19-26,29,33 

2,51,52 

26 

1 ,3,45 

3 

3 

58-59 

58- 61 

59- 61 

67-70 
59-61 
58 

59-61 ,64-66 
69-70,111-113 



Duration (sound) 

Editing 

El 

Ellipses 
ELSE 

Empty loops 
ENVEIOPE 
ER 
ERR$ 

Error tracing 
Error trapping 
Errors 

logic 

Syntax 
ESCape key 

C128 functions 

Plus/4 functions 
FilTER 

Floating point decimal 

Formatting output 

Frequency 

Function keys 

GETKEY 

Glossary 

GRAPHIC 

GRAPHICCIR 

Graphic commands 

Graphic modes 

GSHAPE 

HEIP 

HELP key 

High-resolution 

graphics 
Jiffy 
KEY 

Keyboard data input 

IOCATE 

logic errors 

loops 

Delays 

DO/IOOP 

FOR/NEXT 

IF/THEN:EISE 

Nested 
Menus 
MOVSPR 

Multicolor graphic 

mode 
Multicolor sprites 
Music 

C128 commands 

Plus/4 commands 

Theory 
Musical notes 
Musical symbols 
Noise 



84-89,90-92,94 

29- 32 
25 

67-69 

1 ,4-8,50 

2,84 

92-96 

25 

25 

20-23,25 
25-26,113 

21,23 
20,25 

30- 32 
30-31 
96-98 
36 

11-16 

90-92,96-97 
42-43,46-47,58 
40-42,45,50 
155-159 

53, 54-55, 74 
54 

53-81,101,102 
54 

77-79 
19,20 
20 

54,56,58,74 
84,86,88,90 
42-43,45,46-47, 
54 

39-44 

60,65,68 

21,23 

2 
3 
2 

4-8,50 

23 

46 

106-107 

54, 56, 74, 77 
102-103, 105 

92-99 

86- 87 
88-89 

87- 88 
88 
84 



Null string 


40 


PAINT 


64, 71 


Pitch 


84-92 


Pixel cursor 


106 


Pixels 


54, 58-60, 68, 71, 




74,76,78, 102 


PLAY 




Musical notes 


92,94-95 


Synthesizer 




parameters 


94-86 


Polar displacement 


111 


PRINTUSING 


11-16,45,50,52 


PUDEF 


11,16 


Rectangles 


59-61 ,64-66 


Redefining characters 




(PUDEF) 


11, 16 


Redefining function 




keys 


42-43,46-47,54 


Relative Coordinates 


106,111-113 


RESUME 


19,25-26 


SCALE 


80-81 


Scientific notation 


14 


Screen editing 


29-37 


Screen windows 


29, 30, 33-37 


Scrolling 


33,86 


SLEEP 


2,45,51 


SOUND 


84-87,90-91 


Sound effects 




C 128 effects 


90-91 


Plus/4 effects 


85 


Sound registers 


84-89 


Split-screen graphics 


54, 74 


SPRITE 


102, 105-107 



Sprites 



Collision routines 


107-108 


Design 


101-103 


Editor 


102-103,105-106 


Movement 


106-107 


Multicolor 


102-103, 105 


Saving sprites 


105 


Sprite editor 


101,102-103, 




105-106 


SPRDEF 


101,102,105 


SPRSAV 


101,102,105 


SSHAPE 


77-79,101,102, 




105 


Strings 




CHAR strings 


76 


Text strings 


15,50 


Sweep 


90-91 


Synchronizing voices 


99 


Syntax error 


20,25 


Synthesizer parameters 


94-96 


TEMPO 


94 


Text strings 


15,50 


TRAP 


19, 25-26 


Tracing 


20-23 


TROFF 


19,20-23 


TRON 


19,20-23 


Turtle graphics 


111-113 


Voices 


84-85,90-91 , 




95,99 


VOI 


84-87,90-91 


Waveform 


90-91,93,96 


WINDOW 


34-37 


Windows 


29,30,33-37 
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